solo 1 letra y 1 numero

tengo problemas para que el textbox solo acepte 1 letra y 1 numero he coseguido que acepte solo los caracteres que quiero este es el codigo:

  Dim strLetra As String
        Dim blFlag As Boolean = False
        strLetra = UCase(e.KeyChar)
        Select Case Asc(strLetra)
            Case 65 To 71 : blFlag = True    'Es letra de la A -> G
               
            Case 48 To 56 : blFlag = True    'Es un número 0 -> 8   

            Case 8 : blFlag = True         'Tecla de retroceso
            Case 45 : blFlag = True
            Case Else : blFlag = False
        End Select
        If blFlag = False Then
            e.Handled = True
            SendKeys.Send("")
        End If

pero como ya dije solo quiero que sea 1 letra y 1 numero espere que puedan ayudar....MUCHAS GRACIAS!!!!