Typkonversion von String 2 Double

Sub OPENPEILDATZUWEISENMOD(ByVal kontzeilenindex As String, ByRef m As Long, ByRef TOPODIFF() As Double, Jahresstring As String)
Dim stringdummy As String           'dummyvar
Dim teststring1 As String           'prüfstring
Dim zahl1 As Double                 'übergabevariable
Dim zahl2 As Double                 'übergabevariable
Dim zahl3 As Integer                 'übergabevariable
Dim i As Long                       'zählindex leerzeichen 1
Dim k As Long                       'zählindex leerzeichen 2
k = 1
i = 1
Open "..\Peildateien\" + Jahresstring + "\" + kontzeilenindex _
For Input As #1
Do While Not EOF(1)
Line Input #1, stringdummy
teststring1 = Left(stringdummy, 1)
If teststring1 <> Chr(124) Then
Do Until Mid(stringdummy, i, 1) = Chr(32)
i = i + 1
Loop
Do Until Mid(stringdummy, k + i, 1) = Chr(32)
k = k + 1
Loop
'-----%