1、控制文本框中輸入的內容
例如我們只要求在文本框中輸入數字，而不允許出現其它字符，則我們使用KEYPRESS事件並檢查KeyAscii參數即可，KeyAscii參數用來保存鍵盤所用的ANSI碼（不是ASCII碼），下面是一個例子：
PrivateSubText_KeyPress(KeyAsciiAsInteger)
ifKeyAscii＜Asc("0")OrKeyAscii＞Asc("9")then
KeyAscii=0
endif
endsub
2、從外部文本文件讀入和從文本框中寫出內容到文件內容：
有時我們需要從外部的文本文件中讀入到文本框中，或是把輸入到文本框中的內容保存到文件中，這時可以通過對文件操作的幾個語句來實現，其中Open語句能夠對文件輸入/輸出，LOF函數返回一個Long型值，表示用Open語句打開的文件的大小，該大小以字節為單位。Input函數從文件中讀入數據，而Print函數則把數據寫到文件中。具體的代碼如下面的實例，需要注意的是文本框只能打開大小在32K以下的文本文件，否則會出現錯誤。
filename="c:myext.txt"
OpenfilenameForInputAs#1
Text.Text=Input$(Lof(1),#1)
Close#1
filename="c:myext.txt"
onerrorresumenext
open"c:file.txt"foroutputas#1
print#1,text1.text
close#1
3、怎樣把文本框中的文本全部選中
這需要使用文本框的屬性SelStart和SelLength屬性，SelStart表示選擇文本的開始，SelLength表示要選中文本的長度，采用以下兩句代碼就行了。
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
另外順便提一下SelText屬性，它可以得到已經選中的文本。
4、如何在已經存在的文本的textbox添加新的一行
DimstrNewTextAsString
Text1.strNewText="Updated:"&Date
Text1.SelStart=Len(Text1.Text)
Text1.SelText=vbNewLine&strNewText
實現的關鍵是vbNewLine常數，它的意義是插入一個換行符。->
