[VB6] Leggere un astringa

[Toeke]

Private Sub Form_Load()

Dim a() As String

Dim pippo As String
pippo = "BP.PIPPO.9A814.0000"

a = Split(pippo, ".")

MsgBox a(2)

End Sub