关于一个数据类型检查的出错提示

Question

很简单一个输入框 一个按钮Private Sub Command1_Click()
If TypeName(Text1.Text) = "integer" Then
          MsgBox "整数"
          Else: MsgBox "其他"
End If
EndSub
可运行时无论输什么都提示 子程序或函数未定义 的编译错误 请问哪里出问题了啊

Answer 1

Private Sub Command1_Click()
    If TypeName(Text1.Text) = "integer" Then
        MsgBox "整数"
    Else
        MsgBox "其他"
    End If
End Sub

Answer 2

是End和Sub连一起了
另写代码最好该换行的换行
你那代码可读性差