Kan man maximera antal tecken som får skrivas in i en "InputBox"
Om det går, hur isåfall






Sören

Går inte vad jag vet men en kontroll kan man ju alltid ha.

<code>
Private Sub Command1_Click()

Dim s As String
s = InputBox("Mata in nö", "Jo men vist")
If Len(s) > 4 Then
MsgBox "Max 4 tecken!", , ""
Else
MsgBox "Tack!", , ""
End If

End Sub
</code>
Menar du något så här?

Tusen tack för tipset

Ett
<code>
Private Sub Command1_Click()
Dim sResult As String
Const MaxLen = 4
sResult = InputBox("Mata in nö", "Jo men visst")
Do While Len(sResult) > MaxLen
sResult = InputBox("Värdet får inte överstiga" & MaxLen & "tecken." & vbCrLf & "Mata in nö", "Jo men visst", sResult)
Loop
End Sub
</code>