vb制作小程序代码问题

我想做一个小程序，点击Command1控件后出现一个系统提示，点了123记事本内的数字会减1。有确定和取消2个选项，点了确定后，c盘的123记事本中的数字减1，点了取消，就不会减1，不过我不知道这代码该怎么写，跪求高手指点！

补充：
我上面没描述清楚我重新描述下
我在form1窗体上创建了Command1控件。以及在c盘里新建了一个123记事本，记事本里的内容为10。我要做以下效果，点击Command1控件控件后，会自动出现一个系统提示，提示的内容是：你确定要继续么？消息框上有2个选项，一个是确定，一个是取消，要是点了确定，c盘的123记事本中的数字自动减1。也就是第一次点，c盘的123记事本中的内容成9了。再点1次变8。。。。。。。但记事本中的数字不能小于0，要是已经0了，再点一次，提示，别继续了，你记事本中的数字都要变负的了！

追问：为什么记事本中的内容一点都没变呀。他问我确定么，我点了是，d盘的123记事本还是10。。。。

答案：Private Sub Command1_Click()
dim str
IF Msgbox("确定吗？",vbYesNo,"提示") = vbYes Then
Open ("d:\123.txt") For Input As #1
Do While Not EOF(1)
Line Input #1, tem
str = str + tem + vbCrLf
Loop
Close #1
Open "d:\123.txt" For Output As #1
Print #1,left(str,len(str)-1)
Close
Else
Msgbox("没有变化")
End If

End Sub
 
 
没明白你的意思呃
Option Explicit
Dim FileName As String
Private Sub Command1_Click()
Unload Me
End
End Sub

Private Sub Command2_Click()
On Error GoTo err
Dim FileBuffer As String
If Dir(FileName) <> "" Then
    Open FileName For Input As #1
        Input #1, FileBuffer
    Close #1
    If IsNumeric(FileBuffer) Then
        Dim Num As Integer
        Num = Int(FileBuffer)
        Num = Num - 1
        Open FileName For Output As #1
              Print #1, CStr(Num)
        Close #1
    Else
        MsgBox "文件内容不为数字！", vbCritical, "错误"
        Exit Sub
    End If
Else
    If MsgBox("文件""" & FileName & """不存在，是否创建?", vbCritical + vbYesNo, "提示") = vbYes Then
        Open FileName For Output As #1
              Print #1, "0"
        Close #1
    End If
End If
Exit Sub
err:
MsgBox "未知错误", vbCritical, "错误"
End Sub

Private Sub Form_Load()
Command1.Caption = "OK"
Command2.Caption = "Cancel"
FileName = "C:\abc.txt"
End Sub


刚敲的代码，你去试试！
注：添加两个command1命令按钮，复制所有代码。

上一个：VB中常用程序有哪些？
下一个：求VB托盘的源程序