code memecah String text

ini ada sedikit code untuk kalian vb mania. mudahan bermanfaat.

Dim t As String
t = InStr(1, Me.nama, ":", vbTextCompare)
Me.Text15 = Left(Me.nama, t - 1)
Me.Text17 = Mid(Me.nama, t + 1, Len(Me.nama) - t)

salam

admin.