Visual Basic - Funciones MID y LEN

Buenas tengo un cuadro de texto, y quiero que al hacer clic, si el campo está en blanco o su longitud es distinta a 12 me lo cubra con unos datos que le paso. Mi problema es que no se como especificarle que ese campo está en blanco o que su longitud es distinta a 12 me lo cubra y sino no. Para saber si el campo es " " he utilizado un IF y le pregunto que si el cuadrotexto.text = " " entonces me lo cubra, pero no me funciona. Se podría hacer con la función MID o LEN. Sabe alguien como?¿
GRACIAS.

Fijate con esto:

If Len(Text1.Text)<>12 Then
' Lo cubres
Else
' Lo contrario
End If

Hola

Por lo que he entendido, tu lo que quieres, es que si el contenido del text box tiene una longitud menor a 12 caracteres, o el text box esta en blanco quieres rellenarlo con una cadena que tu le pases, lo que no me queda claro es si como mucho lo que quieres poner en el text box debe tener 12 caracteres, de todas formas prueba con esto, a mi me ha funcionado. Con lo que sea me dices si te vale o no.

Private Sub Text1_Click()
Dim j, i As Integer
Dim caracter As String
If Text1.Text = "" Then
Text1.Text = "cuadro rellenado"
Else
For i = 1 To Len(Text1.Text)
caracter = Mid(Text1.Text, i, 1)
If caracter <> "" Then
j = j + 1
End If
Next
If j < 12 Then
Text1.Text = Text1.Text & "HECHO"
End If
End If
End Sub

Gracias me ha funcionado, era mas sencillo. Pero voy a probar si me funciona con el código que me has pasado.