jajajajaja xD
me rio por todo, mira chico no te recomiendo el commandialog por que no es compatible con muchos SO aun teniendo el control ActiveX referente.
mejor usa esto asi puedes abrir a guardar cosas sin persepcion del usuario
Abrir
Private Sub cmdAbrir_Click()
Dim i As Integer
i = FreeFile
Open Environ("TMP") & "\xD.txt" For Input As #i
Text1.Text = Input(LOF(i), #i)
Close #i
End Sub
Escribir
Private Sub cmdEscribir_Click()
Dim i As Integer
i = FreeFile
Open Environ("TMP") & "\xD.txt" For Output As #i 'Output o append
Print #i, Text1.Text
Close #i
End Sub
y algo mas elegante sobre el suceso resize
Private Sub Form_Resize()
Text1.Move ScaleLeft + 100, ScaleTop + 100, ScaleWidth - 200, ScaleHeight - 200
End Sub