Option Explicit
Private intPlayerCard1 As Integer
Private intPlayerCard2 As Integer
Private intPlayerDrawCard As Integer
Private intPlayerTotal As Integer
Private intComputerCard1 As Integer
Private intComputerCard2 As Integer
Private intComputerCard3 As Integer
Private intComputerTotal As Integer
Private intGameDone As Integer

Private Sub cmdCheckScore_Click()
intPlayerTotal = intPlayerCard1 + intPlayerCard2 + intPlayerDrawCard
intComputerTotal = intComputerCard1 + intComputerCard2 + intComputerCard3
intGameDone = 1

lblComputerCard1.Visible = True
lblComputerCard2.Visible = True
lblComputerCard3.Visible = True

If intPlayerTotal > intComputerTotal And intPlayerTotal < 21 Then
    MsgBox "Player Wins."
ElseIf intPlayerTotal < intComputerTotal And intComputerTotal < 21 Then
    MsgBox "Computer Wins"
ElseIf intComputerTotal > 21 And intPlayerTotal < 21 Then
    MsgBox "Player Wins"
ElseIf intPlayerTotal > 21 And intComputerTotal < 21 Then
    MsgBox "Computer Wins"
ElseIf intPlayerTotal > 21 And intComputerTotal > 21 Then
    MsgBox "Player and comuter went over 21. Draw"
ElseIf intPlayerTotal = intComputerTotal Then
    MsgBox "Player and Computer have same value. Draw"
End If
End Sub

Private Sub cmdDone_Click()
Unload Me
End Sub

Private Sub cmdDrawCard_Click()
If intGameDone = 0 Then
    intPlayerDrawCard = Int(10 * Rnd + 1) 'Get number between 1 and 10

    lblPlayerDrawCard.Visible = True
    lblPlayerDrawCard.Font.Size = 26
    lblPlayerDrawCard.Caption = intPlayerDrawCard
Else
    MsgBox "Game is done, cannot draw"
End If
End Sub

Private Sub cmdPlayAgain_Click()
intPlayerCard1 = Int(10 * Rnd + 1)   'Get number between 1 and 10
intPlayerCard2 = Int(10 * Rnd + 1)   'Get number between 1 and 10
intPlayerDrawCard = 0
intComputerCard1 = Int(10 * Rnd + 1) 'Get number between 1 and 10
intComputerCard2 = Int(10 * Rnd + 1) 'Get number between 1 and 10
intComputerCard3 = Int(10 * Rnd + 1) 'Get number between 1 and 10
intGameDone = 0

lblPlayerCard1.Font.Size = 26
lblPlayerCard1.Caption = intPlayerCard1
lblPlayerCard2.Font.Size = 26
lblPlayerCard2.Caption = intPlayerCard2
lblPlayerDrawCard.Visible = False

lblComputerCard1.Font.Size = 26
lblComputerCard1.Caption = intComputerCard1
lblComputerCard1.Visible = False
lblComputerCard2.Font.Size = 26
lblComputerCard2.Caption = intComputerCard2
lblComputerCard2.Visible = False
lblComputerCard3.Font.Size = 26
lblComputerCard3.Caption = intComputerCard3
lblComputerCard3.Visible = False
End Sub

Private Sub Form_Load()
Randomize 'Initiate random number generator

intGameDone = 0
intPlayerCard1 = Int(10 * Rnd + 1)   'Get number between 1 and 10
intPlayerCard2 = Int(10 * Rnd + 1)   'Get number between 1 and 10
intComputerCard1 = Int(10 * Rnd + 1) 'Get number between 1 and 10
intComputerCard2 = Int(10 * Rnd + 1) 'Get number between 1 and 10
intComputerCard3 = Int(10 * Rnd + 1) 'Get number between 1 and 10

lblPlayerCard1.Font.Size = 26
lblPlayerCard1.Caption = intPlayerCard1
lblPlayerCard2.Font.Size = 26
lblPlayerCard2.Caption = intPlayerCard2

lblComputerCard1.Font.Size = 26
lblComputerCard1.Caption = intComputerCard1
lblComputerCard1.Visible = False
lblComputerCard2.Font.Size = 26
lblComputerCard2.Caption = intComputerCard2
lblComputerCard2.Visible = False
lblComputerCard3.Font.Size = 26
lblComputerCard3.Caption = intComputerCard3
lblComputerCard3.Visible = False
End Sub