VBA 指定したフォーマット以外入力を許可しない

Question

前提・実現したいこと

VBAにて指定したフォーマット以外入力のを禁止したいです。
下記のコード書きましたが。
上手く動作しませんどうすれば希望通り動くようになるでしょうか？
ご教授お願い致します。

環境　Excel2010
Windows10

###希望しているフォーマット
00:00:00(時:分:秒)　数字と[:]のみを半角のみ許可したいです

###現状起きている問題
00:0001のように打ち間違いを入力した際や
00:00:90等時刻としてあり得ない数値を入力した際
00:00:00002334 と言ったようなハッシュ値？として処理されてしまい
思うように動作していません。

該当のソースコード

If CheckFormat(Format(Range("A1").Value,"Long Time")) Fale Then
MsBox("フォーマットが違います")
End If

Public Function CheckFormat(mozi As String) As Blooean


If mozi = "" Then
CheckFormat = False
Exit Function
End If

If IsDate(mozi) = True Then
CheckFormat = True
Else
CheckFormat = False

End If

End Function

試したこと

セルの書式設定に00:00:00,00:00:00@,ユーザー定義で書式を設定しても同様の結果となりました。

Answer 1

とりあえず、[データ]-[データの入力]で下記のように設定する。

セルの書式設定の表示書式を「時刻」にする。

上記の設定で、25:00:00 というような入力は拒否してくれます。

しかし、00:00:90 というような入力は 00:01:30 と変換してくれます。

これではダメ、00:00:90 も拒否してほしいとなると、セルの表示書式は「文字列」にしておいて、
シートのChangeイベントでチェックすることになりそうです。

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count = 1 And Target.Column = 1 Then
        If Not CheckFormat(Target.Value) Then
            Target.Select
            MsgBox ("フォーマットが違います")
        End If
    End If
End Sub

Function CheckFormat(mozi As String) As Boolean
    If mozi = "" Then
        CheckFormat = True
    ElseIf IsDate(mozi) Then
        If DateValue(mozi) = 0 Then CheckFormat = True
    End If
End Function

Comments

[peCopeCo]

ご回答ありがとうございます。
数字だから数字でやらないとと固定概念があり文字列でやる事は思いつきませんでした。
一先ず入力さえクリア出来れば、後は変換したり色々試せるのでそれで希望のモノを作成出来るか挑戦したいと思います。