Contact: aviboots(AT)netvision.net.il
40,023 questions
51,974 answers
573 users
Module Module1 Sub Main() Dim val As Decimal = CDec(InputBox("Enter a value")) / 10 Console.WriteLine(val) End Sub 'run: '34567.8 ' input was 345678 End Module