Dim Diviser As Double
Dim Divident As Double
Dim Ans As Double
Dim Num As Integer
Dim Counter As Integer
Dim Level As Integer
Dim Level2 As Integer
Dim Level3 As Integer

Private Sub Command1_Click()


Form1.Cls
   
    Counter = Counter + 1
    If Counter = 1 Then
    Divisor = Val(Text1.Text)
    Divident = Val(Text2.Text)
    Ans = Int(Divident / Divisor)
    Label1.Caption = Ans
    Label5.Caption = Divisor * Label1.Caption
Level = Divident - Label5.Caption
Label3.Caption = Level
End If
If Counter = 2 Then
Level = (Level * 10)
Label3.Caption = Level
Level2 = Int(Level / Text1.Text)
Label1.Caption = Ans + (Level2 * 0.1)
Label4.Caption = Text1.Text * Level2
Label6.Caption = Level - Level2
End If
If Counter = 3 Then
Level3 = Int(Label6.Caption / Text1.Text)
Label1.Caption = Ans + (Level2 * 0.1) & Level3
Label7.Caption = Text1.Text * Level3
Label8.Caption = Label6.Caption - Label7.Caption
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Command3_Click()
Counter = o
Text1.Text = ""
Text2.Text = ""
Label1.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
Label8.Caption = ""
End Sub

Private Sub Form_Load()
Form1.Cls
End Sub

Private Sub Text1_Change()
Counter = 0
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode > 56 And KeyCode < 97 Then
MsgBox ("Enter numbers only please.")
Text1.Text = ""
End If
If KeyCode > 119 Then
MsgBox ("Enter numbers only please.")
Text1.Text = ""
End If
End Sub

Private Sub Text2_Change()
Counter = 0
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode > 56 And KeyCode < 97 Then
MsgBox ("Enter numbers only please.")
Text1.Text = ""
End If
If KeyCode > 119 Then
MsgBox ("Enter numbers only please.")
KeyCode = ""
Text1.Text = ""
End If
End Sub