[RESOLVED] Help with string functions

[Hack]

With VB6

Dim strPhoneNo() As String
strPhoneNo = "01234567890~2"
strPhoneNo = Split(strPhoneNo, "~")
Msgbox strPhoneNo(0)