On Error GoTo ????

Hej....
Jeg har endnu en (sikkert) banal fejl....

Jeg får en \"Label Not Defined\" Error på denne kode:

---------------------------------------------------
On Error GoTo Error1 \'On Error Function

Dim play_sound As String
Dim ip_adress As String \'Var For IP
ip_adress = Winsock1.LocalIP \'Get IP From Winsock1

play_sound = App.Path

play_sound = \"\\error.wav\"

If Command1.Tag = \"1\" Then
Winsock1.LocalPort = 23
Winsock1.Listen
Label1.Caption = \"\"
Dir1.Path = \"\" & location & \"\"
Command1.Tag = 2
Command1.Caption = \"Stop (Offline)\"
StatusBar1.Panels(1).Text = \"Status = Server Online  (\" & ip_adress & \")\"
StatusBar1.Panels(2).Text = \"Startet At: \" & Time & \"-\" & Date & \"\"
Else
Winsock1.Close
Command1.Caption = \"Start (Online)\"
Command1.Tag = 1
StatusBar1.Panels(2).Text = \"Stopped At: \" & Time & \"-\" & Date & \"\"
StatusBar1.Panels(1).Text = \"Status = Server Offline\"
End If
End Sub

Error1: \'Then On Error 1
Doing_Nothing = MsgBox(\"There Have Been An Error!\", vbOKOnly + vbExclamation, \"Error!\")
If Sound = 1 Then
MediaPlayer1.FileName = play_sound
MediaPlayer1.Play
Else
End If
End Sub
---------------------------------------------------

For at idiot sikre det hele ser Error Boksen sådan ud: http://home1.stofanet.dk/truti/on_error.jpg

Truti