Spanish Problemas en la alternancia entre teclado Numérico y de Texto

[desof]

Hola tengo una opción que seleccionando desde un Spinner el usuario realiza un Filtrado de datos y en 2 de ellos el teclado que se debe mostrar es el Normal y en otro el numérico.
Pero sucede que una vez que se selecciona el Numérico por ejemplo el EditTex no me recibe más el foco para poder escribir
Aca el code para que se entienda..

Sub spCountry_ItemClick (Position As Int, Value As Object)
    edtSearch.Text="" 'limpia el texto
    edtSearch.RequestFocus 'recibe el foco
   
    If spCountry1.SelectedItem = "Nombre" Then       
        'ACA DEBE SER TECLADO TIPO TEXTO
        IME.SetCustomFilter(edtSearch, edtSearch.INPUT_TYPE_PHONE , "")
    Else If spCountry1.SelectedItem = "Teléfono" Then  
      'ACA DEBE SER TECLADO NUMERICO
        IME.SetCustomFilter(edtSearch, edtSearch.INPUT_TYPE_NUMBERS, "")
    Else If spCountry1.SelectedItem = "Calle" Then       
        'ACA DEBE SER TEXTO
        IME.SetCustomFilter(edtSearch, edtSearch.INPUT_TYPE_PHONE , "")
    Else
        'nada
    End If
    CallSubDelayed(Me, "SetKeyboard")
   
End Sub

Sub SetKeyboard   
    IME.ShowKeyboard(edtSearch)
End Sub