[simpits-tech] VB Code to strip digits apart

[Alex & Darlene Wiebe]

Text1 is a simple text box, Command1 is a simple command button. A more
elegant solution may have been posted already.

Private Sub Command1_Click()
Dim digit As Integer
Dim number As Integer

If IsNumeric(Text1.Text) Then
    number = CInt(Text1.Text)
    While number > 0
        If number < 10 Then
            digit = number
            number = 0
        Else
            digit = number - CInt(number / 10) * 10
            number = CInt(number / 10)
        End If
        MsgBox digit
    Wend
End If

End Sub