Imports System
Public Class Program
Public Shared Sub Main(ByVal args As String())
Dim n As Integer
Dim s As String = "3920"
Dim isValidNumeber As Boolean = Integer.TryParse(s, n)
Console.WriteLine(isValidNumeber)
Console.WriteLine(n)
End Sub
End Class
' run:
'
' True
' 3920
'