VB小问题求代码。如果这个给我成功， 后续出钱找你编简单小程序。

Question

要求：点击command3，即确认按钮后，将text3和text4的内容写入一个txt文档. 是追加写入，不要覆盖写入。 当我按command2。即登录按钮时，可以验证txt文档内的帐号密码。 或者 用excel表格。 不要ACCESS数据库。 头痛死了

、

Answer 1

Private Sub Command1_Click()
    Dim bolHasEntered As Boolean
    Dim strText As String
    bolHasEntered = False
    On Error Resume Next
    Open "C:\File.txt" For Input As #2
    If Err.Number <> 0 Then MsgBox "账号文件无法读取，" & vbCrLf & _
        "请确认该文件是否存在或者被别的程序占用。", vbCritical, "出错提醒": Exit Sub
        Do While Not EOF(2)
            Line Input #2, strText
            If Me.Text1.Text & vbTab & Me.Text2.Text = strText Then
                bolHasEntered = True
                MsgBox "登陆成功！" & vbCrLf & "用户名：" & Me.Text1.Text & _
                       vbCrLf & "密码：" & Me.Text2.Text, vbInformation, "登陆成功！"
                Me.Text1.Text = ""
                Me.Text2.Text = ""
                Exit Do
            End If
        Loop
    Close #2
    If Not bolHasEntered Then MsgBox "登录失败！请检查用户名和密码的正确性", vbCritical, "失败提示"
    
End Sub

Private Sub Command3_Click()
    Dim strText As String
    Dim bolError As Boolean
    On Error Resume Next
    strText = ""
    bolError = False
    Open "C:\File.txt" For Append As #1
        Me.Text3.Text = Replace(Me.Text3.Text, vbTab, " ")
        If Len(Me.Text3.Text) > 0 And Len(Me.Text4.Text) > 0 Then
            strText = Me.Text3.Text & vbTab & Me.Text4.Text
            Print #1, strText
        Else
            bolError = True
            MsgBox "用户名或密码不能为空！", vbExclamation, "出错警告"
        End If
    Close #1
    If Not bolError Then
        MsgBox "新账号添加成功！" & vbCrLf & strText, vbInformation, "成功提示"
        Me.Text3.Text = ""
        Me.Text4.Text = ""
    End If
End Sub