Дан файл, содержащий буквы и цифры. Записать в другой файл цифры из этого файла - VB

Private Sub Command1_Click()
   Dim s As String, s1 As String, i As Integer
 
   Open App.Path & "\inText.txt" For Input As #1
          s = Input(LOF(1), 1)
   Close #1
   
   For i = 1 To Len(s)
        If (Mid$(s, i, 1) Like "[0-9]") Then s1 = s1 & Mid$(s, i, 1)
   Next
     
   Open App.Path & "\outText.txt" For Output As #2
          Print #2, s1
   Close #2
 
End Sub