Является ли строка целым числом, вещественным или не является числом

 Dim s, a As String
    Public Function vvod(ByVal T As TextBox) As String
        Return T.Text
    End Function
    Public Sub vivod(ByVal z As String, ByRef t As TextBox)
 
        If Len(s) = 0 Then
            t.Text = "Пожалуйста,введите символы"
        Else
            t.Text = z
        End If
    End Sub
 
    Public Sub Reshenie(ByVal s As String)
        Dim i As Integer
 
        For i = 0 To Len(s) - 1
            If s.Substring(i, 1) >= Chr(48) And s.Substring(i) <= Chr(57) And s.Substring(i) = Chr(44) And s.Substring(i, 1) = Chr(46) Then
                If s.IndexOf(",", 1) = -1 Then
                    a = "простое число"
                Else a = "вещественное число "
                End If
            Else a = "не число"
            End If
        Next
    End Sub
 
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        s = vvod(TextBox1)
        Reshenie(s)
        vivod(a, TextBox2)
    End Sub