• Home
 · 
• Miscellaneous
 · 
• The code list out numbers from the text of Text1 (TextBox)

The code list out numbers from the text of Text1 (TextBox)

The code list out numbers from the text of Text1 (TextBox)

Rate The code list out numbers from the text of Text1 (TextBox)

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'instead of text box...
Sub ListOutNumbers()

    Dim sChr As String
    Dim i As Integer

    If Text1 = "" Then Exit Sub
    List1.Clear

    For i = 0 To Len(Text1)
        sChr = Mid(Text1, i + 1, 1)
        If IsNumeric(sChr) Then List1.AddItem sChr
    Next i
End Sub