Private Sub Form_Load()
Dim c As Double, v1 As Double, v2 As Double
v1 = 2.2
v2 = 2
c = v1 * v2
MsgBox Str$(c)
End Sub

Dim c As Double, v1 As Double, v2 As Double

Option Explicit

Private Sub Command1_Click()
Select Case InStr(1, Text1, "a")
Case Is = 0
MsgBox "No encontré la letra a"
Case Is <> 0
MsgBox "encontré la letra a"
End Select
End Sub

Private Sub Form_Click()
End
End Sub

Private Sub Form_Load()
Me.Caption = 0
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
If UnloadMode = 0 Then Me.Caption = Me.Caption + 1
End Sub