Beregn tekstbox til tekstbox i vba

Private Sub BT_Oversæt_Click()
TextBox18 = ""
A = Len(TextBox10)
If A < 6 Then
MsgBox " ikke nok bogstaver"
End If
For i = 1 To A
b = Mid(TextBox10, i, 1)
  C = UCase(b)
Select Case C
Case "C", "Q", "."
TextBox18 = TextBox18 & 1
Case "A", "B", "D"
TextBox18 = TextBox18 & 2
Case "E", "F", "G"
TextBox18 = TextBox18 & 3
Case "H", "I", "K"
TextBox18 = TextBox18 & 4
Case "L", "M", "N"
TextBox18 = TextBox18 & 5
Case "O", "P", "R"
TextBox18 = TextBox18 & 6
Case "S", "T", "U"
TextBox18 = TextBox18 & 7
Case "V", "X", "Y"
TextBox18 = TextBox18 & 8
Case "J", "W", "Z"
TextBox18 = TextBox18 & 9
Case "Æ", "Ø", "Å"
TextBox18 = TextBox18 & 0
End Select
If Len(TextBox18) = 6 Then Exit Sub

Next
If Len(TextBox18) < 6 Then
TextBox18 = " ikke tegn nok"
end if
End Sub

Hvis der er mellemrum eller andre tegn læser den det næste tegn

Jeg prøver det med det samme. Tak for svar. ;o))

lige en tilføjelse til toppen

Private Sub BT_Oversæt_Click()
TextBox18 = ""
A = Len(TextBox10)
If A < 6 Then
MsgBox " ikke nok bogstaver"
exit sub ' ny linie
End If

Hej kabbak.
Jeg får fejl i linje 6. men ingen fejlkode. Den hopper ikke til næste linje, og udløser MsgBox  nr 7

MsgBox " Fortsætter nr 6"
For i = 1 To A
MsgBox " Fortsætter nr 7"

Mvh Henrik13

Det er vel ikke en fejl, nederst står der =
If Len(TextBox18) = 6 Then Exit Sub
det betyder at når der er 6 cifre i tallet, slutter den.

Ja. men der kommer ikke et eneste tal frem i min tekstbox.

er du sikker på at din tekstbox hedder TextBox18

Ja, Min TextBox hedder TextBox18.

sover du aldrig ?

prøv at sætte denne linie ind

MsgBox " (TextBox18) = " & TextBox18 
lige over
If Len(TextBox18) = 6 Then Exit Sub

for at se om der ikke kommer noget

Jo da, men når noget drikker kan jeg sidde op hele natten. Jeg arbejder mig videre gennem koden, for denne sætning hjalp mig med < den måtte jeg udskifte med >. vender tilbage senere.

Rettelse:
drikker = driller
Jeg har nu fået den til at kører i løkken. men til 8:49:30 får jeg meddelsen:
(TextBox18) =
D.v.s. jeg har ingen data.

prøv lige at skrive koden herind, og eller send arket til mig.

kabbak@tiscali.dk

Tak for koden, den kører perfekt.  ;o))