Sub Dividieren(ByVal Zahl1 As Integer, ByVal Zahl2 As Integer)
        Dim a As Integer = 0, z As String = CStr(Zahl1), x As String = z.Chars( _
          a)
        Do
            a += 1
        Loop Until CInt(x) > Zahl2
        '...
    End Sub

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE