XLong(0) = CLng(XKoords(0))
    YLong(0) = CLng(YKoords(0))

Laufzeitfehler '13':
 
Typen unverträglich

Private Function Convert()
 
Dim i As Integer
 
'Fehlermeldung wegen Typen (?)
 
'X- und YLong(i) sind vom Datentyp Long
'X- und YKoords(i) sind vom Datentyp String
 
For i = 0 To 99 Step 1
 
    XLong(i) = CLng(XKoords(i))
    YLong(i) = CLng(YKoords(i))
 
Next i
 
End Function