vb制作小程序问题

我想做一个小程序，打开这小程序时，这程序会自动读取c盘的123记事本中的内容，如果记事本内容是1，出现一个系统提示，程序无法运行，如果记事本中的内容是2，程序就成功打开，并且提示欢迎使用。如果记事本不存在，提示记事本不存在，程序还是无法打开，如果记事本中内容即不是1也不是2，是其他的，出现一个系统提示，内容不正确，程序也无法打开，请问我要做到这效果，代码应该怎么写，跪求高手！

答案：

Private Sub Form_Load()
Dim FS As Object, F, Fl, a, b As String
    Set FS = CreateObject("Scripting.FileSystemObject")
If FS.FileExists("C:\123.txt") = False Then MsgBox "记事本不存在!", , "系统提示": End
Open "C:\123.txt" For Input As #1  ' 打开文件。
    Do While Not EOF(1) ' 循环至文件尾。
    Line Input #1, b ' 读入一行数据并将其赋予某变量。
    a = a & b
    Loop
Close #1
If a = 1 Then MsgBox "程序无法运行", , "系统提示": End
If a = 2 Then MsgBox "欢迎使用!", , "系统提示"
If (Not a = 1) And (Not a = 2) Then MsgBox "内容不正确", , "系统提示": End
End Sub
有些看不懂你的思路 
你是想cmduser1点了发送，然后他自己锁定，转为cmduser2接受 
cmduser2接受后再由cmduser2发送还是又从cmduser1发送出来 
如果是cmduser1再发送，那你就需要锁死cmduser2，text2，解锁cmduser1，text1，同时设定cmduser1的Caption值 
如果是cmduser2发送，那你就需要锁死cmduser1，text1，解锁cmduser2，text2，同时设定cmduser2的Caption值 
cmduser1.SetFocus，如果cmduser1.Enabled = False就会出错，只有在TRUE的状态下才能执行这个语句

上一个：vb编程，筛选
下一个：求VB字符串处理函数。