Private Sub Command1_Click()
Dim testo, content, content2 As String
content = Form1.Text1.Text
content2 = Form1.Text2.Text
testo = Dir1.Path & "/" & Text1.Text
If o1.Value = True Then
Open testo For Output As #1
Print #1, content2
Unload Me
ElseIf o2.Value = True Then
Open testo For Output As #1
Print #1, content
Unload Me
ElseIf o3.Value = True Then
Open testo For Output As #1
Print #1, content & vbCrLf & content2
Unload Me
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Command2.Enabled = False
End Sub
Private Sub o1_Click()
Command2.Enabled = True
End Sub
Private Sub o2_Click()
Command2.Enabled = True
End Sub
Private Sub o3_Click()
Command2.Enabled = True
End Sub