VB中的一个问题，关于信息保存。

不用2楼那么麻烦吧
open "C:\Documents and Settings\Administrator\桌面\1.txt" for output as #1 '在桌面上创建1.txt，并用output方式打开（只能写）
print #1,text1.text '写入
print #1,text2.text '写入
print #1,text3.text '写入
close #1 ' 关闭文件

基本的文件操作。

txt格式吗？
很简单
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long '获取用户名 API

private sub command1_click()
dim i as string
Call GetUserName(sBuffer, lSize) '获取用户名
If lSize > 0 Then
i = Left$(sBuffer, lSize)
Else
i = vbNullString
End If
open "C:\Documents and Settings\" & i & "\桌面" for output as #1 '打开文件
print #1,text1.text '写入
print #1,text2.text '写入
print #1,text3.text '写入
close #1 ' 关闭文件
end sub

Open "D:\text.txt