急！！如何将所按的键输入到文件里去

我要将每一次所按的键的名称输入到E:\程序\12\11.doc，你看一下我这个错在哪里？
Option Explicit
Dim k, b0, b1, b2, b3, b4 As Integer 
 
 
Private Sub Form_KeyPress(KeyAscii As Integer)
   Dim a0, a1, a2 As Integer
   Dim b, m As Integer
   
   Open "E:\程序\12\11.doc" For Output As #1
If KeyAscii = 48 Or KeyAscii = 49 Or KeyAscii = 50 Or KeyAscii = 51 Or KeyAscii = 52 Or KeyAscii = 53 Or KeyAscii = 54 Or KeyAscii = 55 Or KeyAscii = 56 Or KeyAscii = 57 Or KeyAscii = 32 Then
   Select Case KeyAscii
     Case 48
         m = 0
          
     Case 49
         m = 1
          
     Case 50
         m = 2
          
     Case 51
         m = 3
          
     Case 52
         m = 4
          
     Case 53
         m = 5
          
     Case 54
         m = 6
          
     Case 55
         m = 7
          
     Case 56
         m = 8
         
     Case 57
         m = 9
          
  End Select
  Print #1, m
re:
    a0 = Fix(Rnd * 5)
    a1 = Fix(Rnd * 5)
    a2 = Fix(Rnd * 5)
    b = Fix(Rnd * 5)
     
    If a0 <> a2 And a0 <> a1 And a1 <> a2 And (a0 = 1 Or a1 = 1 Or a2 = 1) Then
        If k = 15 Then
           Close #1
           End
        End If
        Me.Image0.Picture = LoadPicture("E:\程序\12\" & b & "\" & a0 & ".JPG")
        Me.Image1.Picture = LoadPicture("E:\程序\12\" & b & "\" & a1 & ".JPG")
        Me.Image2.Picture = LoadPicture("E:\程序\12\" & b & "\" & a2 & ".JPG")
        k = k + 1
     Else
       GoTo re
     End If
End If
End Sub