CodeItBetter Programming Another VB Programming Blog

'Controls - How to filter invalid charaters for file name in Text box
Private Function FilterFileName(ByRef strKeyAscii As Integer)
    Select Case strKeyAscii
    Case 92, 42, 47, 58, 63, 34, 60, 62, 124
        strKeyAscii = 0
    End Select
End Function
 
'How can I call this function:
'Private Sub txtSL_KeyPress(KeyAscii As Integer)
'    Call FilterFileName(KeyAscii)
'End Sub