「:」より後ろの文字を取り出す。 「:」は全角でも半角でもよし。
Sub test()
Sub test()
Dim myText As String
Dim myLong As Long
'「:」は全角でも半角でも大丈夫だし、何文字目にあっても良い
myText = "売掛金:ABC工業"
' myTxet(売掛金:ABC工業)の 1文字目から 「:」をテキストモード(vbTextCompare)で
'検索して左から何文字目にあったかを返す
myLong = InStr(1, myText, ":", vbTextCompare)
'検索文字があれば(0文字目じゃなかったら)、Mid関数で検索文字の次以降を取り出す
If Not (myLong = 0) Then
msgbox Mid(myText, myLong + 1)
End If
End Sub