Dim a As Single
Dim b As Single
Dim c As Single

a = 9.876543  'First number
b = 2.345678  'Second number
c = a * b

Print 1, "Number ", a, CrLf
Print 1, "multiplied by ", b, CrLf
Print 1, "equals ", c, "!", CrLf