如何用VB编程把资源文件转换为TXT格式的ACSII文件呢

Option Explicit

Private Sub Form_Load()
s = LoadResString(101)
Open "c:\a.txt" For Output As #1
Print #1, s
Close #1

End Sub