Jag behöver lite hjälp med denna koden

Uppgiften lyder som följande:

Gör ett program så att du kan mata in ditt namn i en textruta. Programmet skall sedan svara med ”Hej dittNamn” om det är ditt som skrivs in. Skriver du in något annat skall det namnet skrivas ut men inte Hej.

Här är koden:

Private Sub Command3_Click()
If Text10.Text = "Johan Andersson" Then
MsgBox "Hej, Johan Andersson!"
If Text10.Text = "Rickard Isaksson" Then
MsgBox "Hej, Rickard Isaksson"

Else

If Text10.Text = "" Then
MsgBox ""

End If
End Sub

Vad är det jag har gjort fel, det kommer bara ett vaningsmeddelande om att if satserna är blockade.

Mvh Johan

Hej,

För det första så skall alla if satser avslutas, du avslutar bara den sista. Om jag läser mellan raderna så försöker du åstadkomma kaplsade if-satser och isåfall skall rad två inledas med "else if" så att datorn fattar att de hänger ihop.

Men, du gör det hela alldeles för krångligt, gör så här istället:
<code>MsgBox "Hej, " & Text10.Text</code>

så säger datorn hej oavsett vilket namn du skriver in och du sparar dig jobbet att skriva in flera hundra if satser...

// Johan

eller så här.... (då hej bara ska vara med om namnvillkor uppfylls).
<code vb>If Text10.Text = "Johan Andersson" Or Text10.Text = "Rickard Isaksson" Then
MsgBox "Hej" & Text10.Text
Else
MsgBox "Hej" & Text10.Text
If Text10.Text = "" Then

eller så här.... (då hej bara ska vara med om namnvillkor uppfylls).

If Text10.Text = "Johan Andersson" Or Text10.Text = "Rickard Isaksson" Then
MsgBox "Hej" & Text10.Text
Else
   MsgBox "Hej" & Text10.Text
End If

If Text10.Text = "Johan Andersson" Or Text10.Text = "Rickard Isaksson" Then
    MsgBox "Hej" & Text10.Text
Else
    MsgBox Text10.Text
End If

Fel.............

Suck...... :(
Bara en massa skräp i trådarna ovan.
Den posten med bara kod (ram runt) är det som gäller.

//Håkan

Testar att ändra.

Hej,

Och sa kan man sa klart anvanda select-case...

<code>
Select Text10.Text
Case "Johan Andersson", "Rickard Isaksson"
MsgBox "Hej" & Text10.Text
Case "Johan Svensson"
MsgBox "Hej kodarn... :-)"
Case Else
MsgBox ""
End Select
</code>

// Johan