VB如何向记事本写入数据？

当然可以咯。
格式是这样的：

Open "(Path & FileName).txt" For Output/Append As #1
Print #1,exp1,exp2，……
Close #1

注意：引号里边是文件名，扩展名可以省略，但若是要能用记事本打开的话，就需要补充.txt作为其扩展名。Output是将原内容删除重写，Append是补写，不删除原内容，如果没有这个文件，将新建一个文件。
exp是要写入记事本的表达式

另一种：
Dim FSO as FileSystemObject
Dim OutStream as TextStream

Set FSO=CreateObject("Scripting.FileSystemObject")
Set OutStream=FSO.OpenTextFile(FileName,ForWriting,True,TristateFalse)
OutStream.WriteLine 你要写入的内容
OutStream.WriteLine 你要写入的内容
OutStream.Close
Set OutStream=Nothing
Set FSO=Nothing

知识要点：顺序存取文件

应该是inputbox吧，我想是吧
inputbox("请输入相关信息")这样就可以了