Contact: aviboots(AT)netvision.net.il
40,026 questions
51,982 answers
573 users
Imports System.IO Module Module1 Sub Main() Try Dim l As Long = 100000 Dim s As Single = CType(l, Single) Console.WriteLine(s) ' 100000 Catch ex As Exception Console.WriteLine(ex.Message) End Try End Sub 'run: ' '100000 End Module