ottenere numero di un determinato carattere in una stringa

[gibra]

Puoi fare così

    Dim sAr() As String
    sAr = Split(Text1.Text, "1")
    MsgBox UBound(sAr)

Ciao