Private Sub CmdBersih_Click()
TxtNilai.Text = ""
TxtTampil.Text = ""
TxtNilai.SetFocus
End Sub

Private Sub CmdOk_Click()
If TxtNilai = "1" Then
TxtTampil.Text = "januari"
ElseIf TxtNilai = "2" Then
TxtTampil.Text = "februari"
ElseIf TxtNilai = "3" Then
TxtTampil.Text = "Maret"
ElseIf TxtNilai = "4" Then
TxtTampil.Text = "April"
ElseIf TxtNilai = "5" Then
TxtTampil.Text = "Mei"
ElseIf TxtNilai = "6" Then
TxtTampil.Text = "Juni"
ElseIf TxtNilai = "7" Then
TxtTampil.Text = "Juli"
ElseIf TxtNilai = "8" Then
TxtTampil.Text = "Agustus"
ElseIf TxtNilai = "9" Then
TxtTampil.Text = "September"
ElseIf TxtNilai = "10" Then
TxtTampil.Text = "Oktober"
ElseIf TxtNilai = "11" Then
TxtTampil.Text = "November"
ElseIf TxtNilai = "12" Then
TxtTampil.Text = "Desember"
End If
End Sub