why does this error out at last line

[JEFFREY MUSGRAY]

Public Function getValue(strInput As String, lngStart As Long, Optional lngEnd As Long = 0)
    'Get starting location
        Dim lngPosStart As Long
        Dim strStart As String
        strStart = vbCrLf & lngStart & "."
        lngPosStart = InStr(1, strInput, strStart) + Len(strStart)
    'Get end location (if any)
        Dim lngPosEnd As Long
        If lngEnd <> 0 Then
            lngPosEnd = InStr(1, strInput, vbCrLf & lngEnd & ".")
        Else
            lngPosEnd = Len(strInput)
        End If
 
    getValue = Mid(strInput, lngPosStart, lngPosEnd - lngPosStart)
 
End Function
 

[TheSmileyCoder]

When asking about errors ALWAYS post the err number and full error description!

To debug issues such as this, use the Debug.Print or Msgbox. An example use could be:

Msgbox "Values:" & vbnewline & _
       "  " & lngPosStart:   " & lngPosStart & vbnewline
       "  " & lngPosEnd:     " & lngPosEnd
getValue = Mid(strInput, lngPosStart, lngPosEnd - lngPosStart)

Now the msgbox will tell you what the values are, and you can probably see why its causing an error.

[JEFFREY MUSGRAY]

Thanks, as always you educate me. The error was invalid argument