fejl søger

hej gutter ;-))

jeg har et lille problem med mit program.
jeg skal gemme noget ved hjælp af et nummer, hvis jeg ikke skriver et nummer, vil jeg gerne have en messagebox.
det er gjort. MEN den vil ikke gemme mere, PGA denne lille sætning    If test=\"0\" then.

HVORFOR??

Option Explicit
Dim Sted As Persondata
Dim Nr As Integer
Dim Filnummer As Integer
Dim test As String



Private Sub cmdEnd_Click()
End
End Sub

Private Sub cmdGem_Click()
Nr = Val(txtNr.Text)
Sted.des = txtDes.Text
Sted.By = txtBy.Text
Sted.tele = txtTlf.Text
Sted.Standard = txtStandard.Text
Sted.Enkel = txtEnkel.Text
Sted.Dobbelt = txtDobbelt.Text
Sted.Enkeltb = chkEnkeltb.Value
Sted.Dobbelttb = chkDobbelttb.Value
Sted.Res = chkRes.Value
Sted.Pool = chkPool.Value
Sted.Lege = chkLege.Value
Sted.Tennis = chkTennis.Value

If txtNr.Text = \"\" Then
MsgBox \"Du skal skrive et nummer\"
    test = \"1\"
    txtNr.SetFocus
    End If
****her kommer den lille sætning*****
If test=\"0\" then


Filnummer = 1
Open \"c:\\vbFiler\\Sted.txt\" _
    For Random Access Write As #1 Len = Len(Sted)
    Put #1, Nr, Sted
    Close

txtNr.Text = \"\"
txtDes.Text = \"\"
txtBy.Text = \"\"
txtTlf.Text = \"\"
txtStandard.Text = \"\"
txtEnkel.Text = \"\"
txtDobbelt.Text = \"\"
chkEnkeltb.Value = 0

End If
    End Sub


*****Hvis If test=\"0\" then ****** mangler får jeg fejl i fejlsøgningen.