VB中怎样在TEXT文本框输入文本

VB中怎样在TEXT文本框输入文本

VB中在TEXT文本框输入文本应该不是问题，文本框获得焦点，就可直接在文本框输入文本。
估计问的是如何输入文本文件到文本框。
使用Open语句打开文本文件，逐行读入文本文件。
Private Sub Command1_Click()
    Dim strSj As String
    Dim s As String
    Open "c:\10.txt" For Input As #1
        Do Until EOF(1)
            Line Input #1, s
            strSj = strSj & s & vbCrLf
        Loop
    Close #1
    Text1 = strSj
End Sub

private sub form_load() text1.maxlength = 11 end sub private sub text1_keypress(keyascii as integer) aa = "1234567890" if keyascii = 8 then exit sub if instr(aa, chr(keyascii)) = 0 then keyascii = 0 end sub private sub text1_lostfocus() if len(text1) <> 11 then msgbox "对不起，您输入的手机号码不正确，请重新输入！", , "注意" text1.setfocus end if end sub