Zelle mit Leerstellen füllen

Hallo,
ich habe ein kleines Problem .
Ich befülle eine Variable mit einem Zellwert.
ListStr = TVM.Cells(i, 1)
Wenn der wert nur ein Zeichen beinhaltet soll zusätzlich eine Leerstelle und ein"-" dazu.
Wenn die Zelle 2 Zeichen hat soll nur eine Leerstelle dazu.

z.B.
ListStr = "V" soll dann zu "V -" werden
ListStr = "HQ" soll dann zu "HQ " werden
Wenn ListStr => 3 Zeichen dann OK

Wie kann ich dies abfragen?
Hans-Jörg

Hallo Hans-Jörg ,

ich habe dir mal ein Beispiel.Vieleicht kannst Du was gebrauchen.

If Len([a1]) = 1 Then
[a1] = [a1] & " -"
End If

If Len([a1]) = 2 Then
[a1] = [a1] & " "
End If

Gruss Roli

.