Estructura:
Código:
Private Function AdivinarMsgBox(ByVal sVBcode As String) As Boolean
Ejemplo de llamadas:
TRUE
Código:
Private Form Load()
If 1<4 Then
Msgbox "Hola Mundo"
End If
End Sub
FALSE
Código:
Private Form Load()
'Msgbox "Hola Mundo"
End Sub
TRUE
Código:
Private Form Load()
Me.Print "Hola Mundo"
End Sub
FALSE
Código:
Private Form Load()
Dim a As Long, b As Long
a=23
b=234
If a>b and 234>45634 Then
if "asd" = "aasdsd" then
Msgbox "Hola Mundo"
end if
End If
End Sub
Vale todo!
Suerte!