Error håndtering

Jeg har lavet dette lille program, som konverter en fil! Den vil jeg gerne have til at lave fejlemeddelser hvis den fx ikke finder filen.

Koden ser således ud:
Private Sub Command1_Click()

Dim data(16), linie As String
Dim a As Integer
Dim Filnavn1 As String
Dim Filnavn As String
Dim Laengde As Integer
Laengde = 4096
Filnavn = Text1.Text
Filnavn1 = \"c:\\dokumenter\\mm.txt\"
Open Filnavn For Input As #1
Open Filnavn1 For Output As #2
  Do While Not EOF(1)
   
    For a = 0 To 15
        If Not EOF(1) Then \' <-  indsæt
          Line Input #1, data(a)
          If data(a) = \"GROUP 00008000\" Then
              a = \"1\"
          End If
        End If
       
       
    Next

   
    linie = (data(1))                    \'første data - i eksemplet: 1
       
    For a = 2 To 14                          \'komma og følgende data
       
      linie = linie & \";\" & (data(a))    \'Med valør (val) undgår du \" \" om tallene.
 
    Next
    Print #2, linie                              \'strengen linie skrives til ud-filen
    linie = \"\"                                    \'strengen linie tømmes for indhold
  Loop
Close #1
Close #2

End Sub