kan ikke se fejl: Error 13

hej X.

Jeg kan ikke se fejlen i denne kode:

Public Sub Hentlat(Data As Variant)
Dim Linje As Variant, I As Integer, Uddata As Variant
    Linje = Split(Data, "$")
    For I = 0 To UBound(Linje)
        If Left(Linje(I), 5) = "GPGGA2" Then
        Uddata = Split(Linje(I), ",")
    Exit For
        End If
    Next
    msg = "Uddata("
    For I = 0 To UBound(Uddata)
    msg = msg & I & ") = " & Uddata(I) & vbCrLf & "Uddata("
    Next
    msg = Left(msg, Len(msg) - 7)
    MsgBox msg
End Sub

Text Felte hvor den skal hente data i ser dataen sådan ud:


$GPGGA0,GPGGA
$GPGGA1,121332.517
$GPGGA2,5654.6017
$GPGGA3,N
$GPGGA4,00940.9492
$GPGGA5,E
$GPGGA6,0
$GPGGA7,00
$GPGGA8,50.0
$GPGGA9,86.7
$GPGGA10,M
$GPGGA11,42.6
$GPGGA12,M
$GPGGA13,0.0
$GPGGA14,0000*75


SKirv hvis der er mere du vil have..