Como colocar só caracter no textbox?

'Coloque essa função num modulo ou classe e chame no evento keyPress

'Função Verifica um Caracter.

'Verifica se um Carecter é Númerico ou

'Transforma um caracter minusculo em Maiusculo(vice-versa)

Public Enum Letra
Maiuscula = True
Minuscula = False
End Enum

Public Enum SimNao
Sim = True
Nao = False
End Enum

Public Function VerificaCaracter(Con_Campo As Control, Int_Tecla As Integer, Optional Numero As SimNao, Optional Letra As Letra, Optional Ponto As Boolean) As Integer

   ' Verifica se Tecla que é Digitada é Número ou Transforma
   ' em Maiúscula ou Minúscula

   VerificaCaracter = Int_Tecla

   If Int_Tecla = 8 Or Int_Tecla = 13 Or Int_Tecla = 27 Then Exit Function

   If Numero = Sim Then
      If Not IsNumeric(Chr(Int_Tecla)) Then
         If Int_Tecla = 44 Then
            If InStr(Con_Campo, ",") = 0 And Con_Campo <> "" Then
               If Ponto Then
                  VerificaCaracter = 46
                Else
                  VerificaCaracter = Int_Tecla
               End If
             Else
               VerificaCaracter = 0
            End If
          Else
            VerificaCaracter = 0
         End If
      End If
    Else
      If Letra = Maiuscula Then
         VerificaCaracter = Asc(UCase$(Chr$(Int_Tecla)))
       Else
         VerificaCaracter = Asc(LCase$(Chr$(Int_Tecla)))
      End If
   End If
End Function