Ja använder mig av MDIForm och ja har skrivit denna kod
för spara..

Private Sub mnuSave_Click()
On Error GoTo Avbryt
With CommonDialog1
.Filter = "Text Files (*.txt)|*.txt|HTML (*.htm, *.html)|*.htm;*.html"
.FilterIndex = 1
.ShowSave
End With
rtbDocument.SaveFile CommonDialog1.FileName, rtfText
Avbryt:
Exit Sub
End Sub

Jag kan ej se nått fel... det är
rtbDocument.SaveFile CommonDialog1.FileName, rtfText
som ger felmedelandet

Kom på svaret Själv..
så här ska d stå,

Private Sub mnuSave_Click()
On Error GoTo Avbryt
With CommonDialog1
.Filter = "Text Files (*.txt)|*.txt|HTML (*.htm, *.html)|*.htm;*.html"
.FilterIndex = 1
.ShowSave
If Len(.FileName) = 0 Then
Exit Sub
End If
sFile = .FileName
End With
ActiveForm.Caption = sFile
ActiveForm.rtbDocument.SaveFile sFile
Avbryt:
Exit Sub
End Sub