Dim MONEY As Integer

Private Sub Command1_Click()
If Val(Text2) < 0 Then
    If Val(Text2) < MONEY Then
        MONEY = MONEY + Val(Text2)
        MsgBox ("提款金额=" + Text2 + Chr(13) + "你余款剩" & MONEY)
    Else
        MsgBox "想抢劫吗?"
    End If
Else
        MONEY = MONEY + Val(Text2)
        MsgBox ("存款金额=" + Text2 + Chr(13) + "你的存款有" & MONEY)
End If
    a = MsgBox("继续交易", 52, "123银行")
    
    If a = 6 Then
        Text2 = ""
    Else
        End
    End If
End Sub

Private Sub Form_Load()
MONEY = 1000
End Sub