Option Explicit

Private Sub Check1_Click()
If Check1.Value = vbChecked Then
ShowHello = True
Else
ShowHello = False
End If
End Sub

Private Sub Form_Load()
If ShowHello Then
Check1.Value = vbChecked
MsgBox "Hello!", vbInformation
Else
Check1.Value = vbUnchecked
End If
End Sub