ボタンを押した時の検証で良ければ
低レベルなコードかも知れませんが、単純に

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If IsNumeric(TextBox1.Text) = True Then 　'入力が数値かどうか？
            Dim tx As String = CStr(CInt(TextBox1.Text))　'数値に変換してから文字列に変換（0から始まる文字だった場合を考慮して）
            If Len(tx) <> 4 Then　　'4文字かどうか
                MsgBox("4桁の数値を入力してください")
                Exit Sub
            End If
        Else
            MsgBox("数値を入力してください")
            Exit Sub
        End If
        MsgBox("OK")
    End Sub

こんなのでどうですか？