visual basic- hitung gaji pegawai

Private Sub Command1_Click()
Dim lembur As Long
lembur = Val(Text3) - 8
Select Case Combo1.Text
Case "A"
If lembur < 2 Then
Text4.Text = lembur * 2000
Text5.Text = 1850000
ElseIf lembur >= 2 And lembur <= 5 Then
Text4.Text = lembur * 3000
Text5.Text = 1750000
ElseIf lembur > 5 Then
Text4.Text = lembur * 5000
Text5.Text = 1650000
End If
Case "B"
If lembur < 2 Then
Text4.Text = lembur * 3000
Text5.Text = 2100000
ElseIf lembur >= 2 And lembur <= 5 Then
Text4.Text = lembur * 3000
Text5.Text = 1750000
ElseIf lembur > 5 Then
Text4.Text = lembur * 5500
Text5.Text = 1750000
End If
End Select
Text6.Text = Val(Text4) + Val(Text5)
End Sub


Private Sub Form_Load()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
Text5.Text = Clear
Text6.Text = Clear
Combo1.AddItem "A"
Combo1.AddItem "B"
End Sub

Private Sub selesai_Click()
End
End Sub

Private Sub Ulangi_Click()
Text1.Text = Clear
Text2.Text = Clear
Text3.Text = Clear
Text4.Text = Clear
Text5.Text = Clear
Text6.Text = Clear
Combo1.Text = Clear
End Sub