Private strString As String
 
Private Sub butCmd_Click()
strString = inputbox("gebe String ein!")
End Sub
 
private Sub writeCmd_CLick()
open "C:\test.txt" for output as #1
print #1,"String: " + strString
close #1
end sub

Option Explicit

dim nr as integer
nr = freefile ' eine freie nr wählen
open "C:\test.txt" for output as #nr
print #nr,"String: " + strString
close #nr ' datei auch wieder schließen!
end sub

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.