os dejo este simple bloc de notas que hice



[code]Private Sub Command1_Click()
With CommonDialog1

.DialogTitle = "Guardar Nota"
.Filter = "Textos|*.Txt"
.ShowSave

RichTextBox1.SaveFile CommonDialog1.FileName, rtfText
MsgBox "Nota Gaurdada exitosamente en:" & vbNewLine & CommonDialog1.FileName, vbInformation

End With
End Sub[/code]

y para que el programa se ejecute una sola ves utilize este code que posteo ANTRAX

[code]Private Sub Form_Load()
Dim Ya_Existe As Integer
Ya_Existe = App.PrevInstance
If Ya_Existe <> 0 Then
MsgBox "El Programa ya se esta ejecutando", 0 + 48, "Advertencia"
End
End If
End Sub
[/code]

Descarga: [Enlace externo eliminado para invitados]

Gracias The Swash por decirme que use RichTextBox y no un TextBox