Hi everybody,

I have a small Makro, but it doesn't run... :-(

The Makro is supposed to look up the IP-Adress which it finds in the Logfile in a EXCEL-woksheet and take the corresponding CustomerID and write it into a NEW logfile.
NOW, somehow I get an Error like Runtime-Error 5: Invalid procedure or argument

I am not good with VBA, so I actually don't understand what I do wrong.... :-(

Sub Test() 
    Dim sText As String 
    Dim sPos As Long 
    Dim sKdNr As String 
    
    Open "C:\Temp\Test.txt" For Input As #1   'logfile
    Open "C:\Temp\Test1.txt" For Output As #2     ' new logfile with Customer IDs
    
    Do While Not EOF(1) 
        Line Input #1, sText 
        sPos = InStr(sText, " - - ") 
        sKdNr = KdNrSuchen(Mid(sText, 1, sPos - 1))    'and now I get the ERROR!!!!
        
        Print #2, sKdNr & " " & sText 
    Loop 
    
    Close 
End Sub 


Function KdNrSuchen(sIP As String) As String 
    Dim i As Long 
    
    For i = 1 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row 
        '  checking for the IP in column A
        If Trim(ActiveSheet.Cells(i, 1)) = Trim(sIP) Then 
'            if found then
            KdNrSuchen = Trim(ActiveSheet.Cells(i, 2)) 
            Exit For 
        End If 
    Next i 
End Function
Inside the code I marked where the error occurs....

THANKS!!