如何判断多个TextBox是否为空??
例如有3个TextBox与一个CommandButton,
当按下CommandButton时,会检查3个TextBox是否为空,
但当Text填入值仍出现录入框为空的提示??
如附件..

Private Sub Command1_Click()
If Text1(0).Text = "" Then MsgBox "1空"
If Text1(1).Text = "" Then MsgBox "2空"
If Text1(2).Text = "" Then MsgBox "3空"
End Sub

LZ要的不是你这种方法

Private Sub Command1_Click()
On Error Resume Next
   '判断是否输入了用户名
   
    Dim k, I As Byte
    Dim strTEXT As String
    Dim strTEXT1() As String
    strTEXT = Text1.Text & "," & Text2.Text & "," & Text3.Text
    strTEXT1() = Split(strTEXT, ",")
    For k = 0 To 3
        If strTEXT1(k) = "" Then
            MsgBox Split("设备,类型,班别", ",")(k) & "录入框为空,请重新输入!", 48, "提示"
            
        Else
            If strTEXT1(k) <> "" Then
                MsgBox Split("设备,类型,班别", ",")(k) & "录入成功!", 48, "提示"
            End If
        End If
    Next
End Sub


把Command1_Click代码改一下

或者这三个text设成控件数组，这样更简洁些。

感谢XieLi的指导,基本功能正常,
但MsgBox会每次都提示,是否有更好的方法？？

自己改成label或别的就就行了？

这个行啊.你还要实现什么功能啊.