The code below adds the next seqential number to a text box on a form.

Everything works fine until I get to the following line, after
execution of the line of code I get the "type mis-match error":-
NextSeqNumber = "MIR-" & strNum

If I remove the "MIR-" & and simple use the following, it works fine
NextSeqNumber = strNum

I checked the user form to make sure that the text box is actually a
text box and it is.

Anyone have an idea what's causing the error.

Thanks
burl_rfc

Private Sub Userform_Initialize()

frmIncidentReport.txtIncidentNo.Value = NextSeqNumber

End Sub

Public Function NextSeqNumber(Optional sFileName As String, Optional
nSeqNumber = -1) As Long
Const sDefault_Path As String = "c:\documents and settings\my
documents"
Const sDefault_fName As String = "defaultseq.txt"
Dim nFileNumber As Long

nFileNumber = FreeFile
If sFileName = "" Then sFileName = sDefault_fName
If InStr(sFileName, Application.PathSeparator) = 0 Then _
sFileName = sDefault_Path & Application.PathSeparator &
sFileName
If nSeqNumber = -1& Then
If Dir(sFileName) < "" Then
Open sFileName For Input As nFileNumber
Input #nFileNumber, nSeqNumber
nSeqNumber = nSeqNumber + 1&
Close nFileNumber
Else
nSeqNumber = 1&
End If
End If
On Error GoTo PathError
Open sFileName For Output As nFileNumber
On Error GoTo 0
Print #nFileNumber, nSeqNumber
num = nSeqNumber
If num < 10 Then
strNum = "000" & CStr(num)
ElseIf num < 100 Then
strNum = "00" & CStr(num)
ElseIf num < 1000 And num 99 Then
strNum = "0" & CStr(num)
End If

Close nFileNumber
NextSeqNumber = "MIR-" & strNum
Exit Function

PathError:
NextSeqNumber = -1&

End Function