テキスト１に全角のみで表示をさせたいのですが、
文字を半角で書いた場合は、「全角で書いてください」という
エラーがでるのですが、数字を全角で書いた場合も
「全角で書いてください」というエラーがでます。
全角で数字を書いているのになぜなるのでしょうか？
よろしければ教えてください。
下がプログラムです。

If StrConv(Text1.Text, vbWide) <> StrConv(StrConv(Text1.Text, vbWide), vbNarrow) Then
        Label1.Caption = "住所は全角で書いてください"
        

自分の書いたプログラムの間違い探しは、自分でやりましょう。

    If StrConv(Text1.Text, vbWide) <> StrConv(StrConv(Text1.Text, vbWide), vbNarrow) Then
        Label1.Caption = "住所は全角で書いてください"
        Debug.Print StrConv(Text1.Text, vbWide), StrConv(StrConv(Text1.Text, vbWide), vbNarrow)
    End If

自分の考えているように動作していますか？

こんにちは、じゃんぬ です。

Option Compare Text が原因では?

それと、自分で最低限のデバッグをしてください。

    Dim n1 As String
    Dim n2 As String

    n1 = StrConv(Text1.Text, vbWide)
    n2 = StrConv(StrConv(Text1.Text, vbWide), vbNarrow)

として、何が格納されているか見てみるとか。

# リロードしたのに、また被ってしまいました。
# 同じ内容だったりしますし、気が合いますね > 管理人さん

ありがとうございました。

> ありがとうございました。

これでは何もわからない。
何によって解決したのか書きましょう。