adding number with string

[mheiy]

im adding an applicant number like this APP-0001 what will i do to automaically add like that

With tbInquiry
      If .RecordCount = 0 Then
        txtAppID = "00000001"
 
    Else
        .MoveLast
        txtAppID = .Fields(0) + 1
'        txtAppInfo(0).SetFocus
    End If
End With
End Sub