Input Mask voor mac adressen -23S001125B1FA22

Public Function pfCheckMacAddress(strMAC As String) As Boolean

On Error GoTo Err_pfCheckMacAddress

Dim strInput As String
Dim strResult As String
Dim blnResult As Boolean

blnResult = True
strInput = strMAC

'eerst checken op de lengte van het address
If Len(Trim(strInput)) <> 12 Then
    MsgBox "De lengte van het MacAddress klopt niet"
    blnResult = False
    GoTo Exit_pfCheckMacAddress
End If

'nu gaan we kijken of het is samengesteld uit geldige karakters
For i = 1 To Len(Trim(strInput))
    If Asc(Mid$(Trim(UCase(strInput)), i, 1)) > 47 And Asc(Mid$(Trim(UCase(strInput)), i, 1)) < 58 Or _
    Asc(Mid$(Trim(UCase(strInput)), i, 1)) > 64 And Asc(Mid$(Trim(UCase(strInput)), i, 1)) < 71 Then
    Else
        blnResult = False
        GoTo Exit_pfCheckMacAddress
    End If
Next i

Exit_pfCheckMacAddress:
    pfCheckMacAddress = blnResult
    Exit Function

Err_pfCheckMacAddress:
    MsgBox "Error: " & Err.Description, vbCritical + vbOKOnly, "Error: " & Err.Number
    blnResult = False
    Resume Exit_pfCheckMacAddress

End Function