När jag kör nedanstående kod, så får jag följande felmeddelande:

End without block if

Vad kan det vara för fel?


Private Sub Command1_Click()
Text1.Text = " "
Text2.Text = " "
Text1.SetFocus

End Sub

Private Sub Command2_Click()
End

End Sub

Private Sub Text1_LostFocus()
If Text1.Text = 1 Then Text2.Text = "Du skrev en 1:a"


If Text1.Text = 2 Then Text2.Text = "Du skrev en 2:a"
If Text1.Text = 3 Then Text2.Text = "Du skrev en 3:a"
If Text1.Text = " " Then Text2.Text = "Du måste ange ett värde"


Else

Text2.Text = "Du skrev något annat"



End Sub

Innan det sista "End Sub" ska du ha "End if"

/Johan

Förslag:
1)
Använd ej END.
Använd istället Unload Me
2)
En Case sats är nog mer lämplig än en IF sats. Mer lät läst och VB slipper hämta text värdet flera gånger:

Private Sub Text1_LostFocus()
Select Case Text1.Text
Case "1"
Text2.Text = "Du skrev en 1:a"
Case "2"
Text2.Text = "Du skrev en 2:a"
Case "3"
Text2.Text = "Du skrev en 3:a"
Case " "
Text2.Text = "Du måste ange ett värde"
Case Else
Text2.Text = "Du skrev något annat"
End Select
End Sub