Sub ifTest() Dim intNum As Integer Dim strMessage As String intNum = 12 If intNum > 10 Then strMessage = "The number is " & intNum End If Debug.Print strMessage End Sub