Module Module1
        Sub Main()
           Dim strText1 As String="1234"
           Dim intValue As Integer
 
           intValue=Val(strText1)
           strText1=Str(intValue)

           System.Console.WriteLine(strText1)
        End Sub
    End Module