初学vb，问一个截取字符串的有关问题

初学vb，问一个截取字符串的问题
比如abcd:efg
想截取冒号以前的字符，即abcd，谢谢了

[解决办法]
Private Sub Form_Load()
Dim a As String
a = "abcd:efg "

a = Left(a, InStr(1, a, ": ", vbTextCompare) - 1)
End Sub