Teclado virtual

[pkj]

De momento creo que estas quitando los espacios a un texto fijo, en lugar de al texto de tu textbox:

nombreForm = Trim("login")
datoBox = Trim("txtUser")
titulotec = Trim("Ingrese el Usuario")
Teclado.Show

seria:

Imagino que estas 3 son variables globales:
nombreForm = "login" ' esta sera para saber quien llama al teclado.
datoBox = Trim(txtUser) ' esto supongo que quieres cargarlo desde un textbox llamado txtuser de este mismo form.
titulotec = "Ingrese el Usuario" ' y esto sera el titulo del teclado, que supongo que se cargara al hacerse visible

Teclado.Show

Por otro lado tienes 2 fallos:

Public Sub enter_Click(Index As Integer)

nombreForm.datoBox.Text = campotec.Text
Unload Me

End Sub

este boton es parte de una matriz de botones, y si no le dices que index es el que debe pulsar "enter", todos los botones de la matriz pulsaran "enter"
Si solo tienes un boton en la matriz no hay problema.

El otro fallo (y por el que te da error) es que no puedes llamar a un formulario usando una variable de texto:
nombreForm.datoBox.Text = campotec.Text

Lo mas facil es que hagas un select case:

Select case nombreform
case "login"
form1.datobox.text=campotec.text
case "form2"
form2.datobox.text.......
case "form3"....

end select