Преобразовать строку, удалив все символы, не являющиеся буквами или цифрами - VB

Формулировка задачи:

есть задача: дана текстовая строка, состоящая из букв и цифр. Преобразовать строку, удалив все символы, не являющиеся буквами или цифрами, и заменив каждую большую букву одноименной малой. написал следующий код:

private Sub Command2_Click()
Dim s As String
Dim a() As Integer
Dim s1 As String
s = InputBox("введите строку")
k = Len(s)
ReDim a(1 To k)
For i = 1 To k
a(i) = Asc(Mid(s, i, 1))
Next i
s1 = ""
For i = 1 To k
If (a(i) > 48) And (a(i) < 57) And (a(i) > 97) And (a(i) < 122) And (a(i) > 65) And (a(i) < 90) Then s1 = s1 & Chr(a(i))
'48-57 - код цифр от 0 до 9
'97-122 - код малых английских букв от a до z
'65-90 - код больших английских букв от A до Z
Next i
s1 = LCase(s1)
Print s1
End Sub

но, к сожалению, после выполнения программы в левом верхнем углу ничего не появляется, хотя там должна появиться строка

. в чём же дело?

Решение задачи: «Преобразовать строку, удалив все символы, не являющиеся буквами или цифрами»

textual
                            Листинг программы 
                        

                            Sub DelNonLetNum()
Dim sSource As String, sDest As String, sChar As String, iChar As Integer
sSource = InputBox("Ввод строки:", , "13 __  CheCk ПроВерКа -][\/ ЗАданИя 984//")
For i = 1 To Len(sSource)
    sChar = Mid(sSource, i, 1)
    Select Case Asc(sChar)
        Case 32, 48 To 57, 65 To 90, 97 To 122, 192 To 255: sDest = sDest & sChar
    End Select
Next
MsgBox sSource & vbNewLine & LCase(sDest)
End Sub
                        