Private Type PalInfo
    Name As String * 8
    Tel As String * 10
    Post As Long
End Type
Dim pal As PalInfo
Private Sub Command2_Click()
    ch$ = ""
    For k = 1 To Len(Text1.Text)
        C$ = Mid$(Text1.Text, k, 1)
        If C$ >= "0" And C$ <= "9" Or C$ >= "a" And C$ <= "z" Or C$ >= "A" And C$ <= "Z" Then
            ch$ = ch$ + C$
        End If
    Next k
    Open App.Path & "\out5.txt" For Output As #1
    Print #1, ch$
    Close #1
End Sub