保存数据到记事本出现乱码的问题

Private Sub BaoCun_CSH_Click()
Dim strOpenFileName As String, fileExist As String
Dim RESP
                                                                  ' 总是将工作路径设置到包含此应用程序的路径。
ChDir App.Path
CMDialog1.InitDir = App.Path & "\数据\"
CMDialog1.Filter = "文件(*.txt)|*.txt|所有文件(*.*)|*.*"On Error Resume Next
fileExist = ""
CMDialog1.FileName = ""
CMDialog1.ShowSaveIf Err <> 32755 Then
    strOpenFileName = CMDialog1.FileName
    On Error Resume Next
    fileExist = Dir(strOpenFileName) <> ""
    If Err.Number <> 0 Then fileExist = False
        If fileExist = False Then
            RESP = MsgBox("文件不存在，要建立吗？", vbYesNo, "保存参数到文件中")
            If RESP = vbNo Then
                Exit Sub
            Else
                XinXi.List1.AddItem "该文件创建成功！"
            End If
        Else
            RESP = MsgBox("文件将被覆盖，继续吗？", vbYesNo, "保存参数到文件中")
            If RESP = vbNo Then
                Exit Sub
            Else
                XinXi.List1.AddItem "该文件已被覆盖！"
            End If
        End If
        
mydata.Data = UCase(Replace(Text1.Text, Space(1), Space(0)))                 ' 先去掉空格，再转换为大写字母
                                                                             ' 打开选定的文件保存数据。
Open strOpenFileName For Binary As #1
Put #1, 1, mydata
Close #1
End If
End Sub               1.这里保存数据到记事本,打开记事本查看,在其开头总是有乱码????咋回事??               2.当我点击保存按纽,弹出保存对话框,就是要输入文件名保存,确定.就可以保存了.
                但是我不保存,直接点击取消,却弹出"文件将被覆盖，继续吗？" 对话框,怎么回事情??需要怎么改??
------------------------------------------------------------Type Record   ' 定义用户自定义数据类型。
    Data As String
    comnumber As Byte  '为设置通讯口
    bh As String * 12 '最后填入的表号
    Datapath As String '保存文件确省路径
    BOUTRATE As Long    '波特率
    ParityBit As String '校验位
    DataBit As Integer '数据位
    StopBit As Integer '停止位
End TypePublic mydata As Record