Public Function msgStr() As String
        Return ID & " - " & Name & " - " & _
            Type & " - " & FormatCurrency(WkSal) & _
            " - " & FormatCurrency(YrSal)
    End Function

Would have been better style to do
Public Overrides Function ToString() as String