電話番号や郵便番号をチェックする際に「−」←をいれてもチェックがかからないロジックを作って
いるのですが、isnemricを使うとチェックにかかってしまいます。しっくりいく方法があればアドバ
イスをおねがいします。

とりあえず今はキープレスイベントで「数字」と「-」以外は打てないようにしているのですが、チェ
ックをかけるという事から逃げている状況です；；

入力された値をSPLITを使って「-」で分け、
それぞれのインデックスに対し、ISNUMERICを使っては？

某掲示板に投稿されていたサンプルです、これはIP Addressのチェック関数ですが
応用して作成してみては？

Public Function ChkIPAddrssFormat(strIPAddress As String) As Boolean
    
Dim tmpArray() As String
Dim intCnt As Integer
    
    ChkIPAddrssFormat = False
    
    '前後のTrimは削除する
    strIPAddress = Trim$(strIPAddress)
    
    '値が入力されてい無い場合は無視する
    If strIPAddress = "" Then
        ChkIPAddrssFormat = True
        Exit Function
    End If
    
    tmpArray = Split(strIPAddress, ".")
    '"."が3つ(=IPv4)以外はエラー(IPv6は意識しない)
    If (UBound(tmpArray) <> 3) Then
        Exit Function
    Else
        For intCnt = 0 To UBound(tmpArray)
            '文字列、空白はエラー
            If (Trim(tmpArray(intCnt)) = "") Or (IsNumeric(Trim(tmpArray(intCnt))) = False)
Then
                Exit Function
            '値が0〜255の範囲に無いものはエラー
            ElseIf ((CInt(Trim(tmpArray(intCnt))) < 0) Or (CInt(Trim(tmpArray(intCnt))) >
255)) Then
                Exit Function
            End If
        Next
    End If
    ChkIPAddrssFormat = True

End Function

ありがとうございます。

早速作ってみます。