Private Sub Form_Load()
 
    Dim sTest As String
        sTest = "kp100"
        MsgBox CheckSymbol(sTest)
 
        sTest = "kp10."
        MsgBox CheckSymbol(sTest)
 
        sTest = "kp10a"
        MsgBox CheckSymbol(sTest)
 
End Sub
 
Private Function CheckSymbol(sString As String) As Integer
 
    Dim iRetVal As Integer
    Dim sChar As String
        sChar = Mid(sString, Len(sString))
 
    If InStr(1, ".,!?;", sChar) > 0 Then    ' Hab ich nen Zeichen vergessen?  :P
        iRetVal = 2 ' = Satzzeichen
    ElseIf IsNumeric(sChar) Then
        iRetVal = 1 ' = Zahl
    Else
        iRetVal = 0 ' = Buchstabe oder so
    End If
 
    CheckSymbol = iRetVal
 
End Function

Mit freundlichen Gr??en,
Andy G.