String auslesen und damit rechnen

Hallo,

ich möchte aus einem String ein paar Zahlen auslesen und mit diesen dann weiterrechnen.
Mein Code dazu lautet:

Dim String1 As String * 25
Input "String.:" , String1
Print String1

Dim A As String * 5
A = Mid(string1 , 5 , 5)
Print A

Dim B As Single
B = Val(a)
Print B

Gibt es da eine einfachere VAriante? Dies erscheint mir doch sehr umständlich.

Danke