Hola, tengo un proyecto donde se abre un formulario de login con un usuario y contraseña, pero me percato de que cuando la contraseña tiene solo números indica que "La contraseña es invalida" pero cuando cambio la contraseña a con letras si permite continuar, mi pregunta será ¿Cómo valido que el usuario ingrese mínimo una letra en la contraseña? o ¿cómo valido que me tome una contraseña de  sólo números?

Podrías validar que la contraseña contenga una letra mínimo,  usa una expresión regular. Por ejemplo, puedes usar la función Like para verificar si contiene al menos una letra:

Function ContieneLetra(contrasena As String) As Boolean
    ContieneLetra = contrasena Like "*[a-zA-Z]*"
End Function

Ahora si quieres permitir que contengan solo números, puedes modificar el código de validación para que acepte las que cumplan con tus criterios.

Por ejemplo:

Function SoloNumeros(contrasena As String) As Boolean
    SoloNumeros = contrasena Like "*[0-9]*"
End Function

Saludines

Private Sub CommandButton1_Click()
Dim Usuario As Range
'--
Set Usuario = Hoja1.Columns("C").Find(TextBox1, , , xlWhole)
If TextBox1 = "" Or TextBox2 = "" Then
   MsgBox "Introduzca usuario/contraseña", vbCritical
   Exit Sub
End If
'--
If Usuario Is Nothing Then
   MsgBox "El usuario no existe", vbCritical
   Exit Sub
End If
'--
If TextBox2 <> CStr(Hoja1.Range("D" & Usuario.Row)) Then '<-- Esta es la clave
   MsgBox "La contraseña es errónea", vbCritical
   Exit Sub
End If
'--
MsgBox "Usuario y contraseña correctos", vbInformation
End Sub