Option Explicit
Sub Coin()
Dim Strcoin As String

Strcoin = InputBox("Enter H for heads or T for tails")
If Strcoin = "H" Then
MsgBox "heads won"
Else
MsgBox "Tails won"
End If
End Sub

Sub Spellnum()
Dim IntNum As Integer

IntNum = InputBox("enter a number")
 
Select Case IntNum
Case 1
MsgBox "one"
Case 2
MsgBox "two"
Case 3
MsgBox "three"
Case 4
MsgBox "four"
Case 5
MsgBox "five"
Case 6
MsgBox "six"
Case 10 To 19
MsgBox "teen"
Case 20 To 100
MsgBox "alive"
Case Else
MsgBox "I don't care"
End Select



End Sub