Quitar espacios en blanco

[frankjoel86]

Saludos compañeros de forosdelweb, mi duda es:
- Recorro los registros de una table_Usuario
- Cuando los captura, aparecen con espacios en blanco (ASI ESTA EN LA DB)
- No se como hacer para poder eliminarlos, e usado el trim y no funk

For i = 0 To dt.Rows.Count - 1
vUsuario = dt.Rows(i)("Usuario")
vClave = dt.Rows(i)("Clave")
Trim(vUsuario)
RTrim(vClave)
If vUsuario = TxtUsuario.Text And vClave = TxtClave.Text Then
MsgBox("hola")
End If
Next i

Gracias de antemano por el apoyo.