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.