[PYTANIE] Sprawdzanie

[Nexicoll]

Jak sprawdzić czy dana wartość jest cyfrą, mam np TextBox1 i dałem

 

 If Not IsNumeric(TextBox1) Then
    MsgBox("Wpisane znaki to nie liczby", MsgBoxStyle.Critical, "Error")
 ElseIf IsNumeric(TextBox1) Then
    nazwa = TextBox1.Text
 End If
 

 

Oczywiście mam zdeklarowaną zmienną "nazwa". Rzecz jasna dałem to pod buttonem, ale nawet jak wpisy same cyfry to wyskakuje mi Msgbox

[Gość]

Module Module1

 

Sub Main()

If Not sprwadzCzyJestLiczba("ajsjfdpajsjf") Then

Console.WriteLine("To nie jest liczba")

Else

Console.WriteLine("To jest liczba")

End If

End Sub

Function sprwadzCzyJestLiczba(tekst As String)

Dim v As Integer = -1

Return Integer.TryParse(tekst, v)

End Function

 

End Module