FEJL!!!

str = Mid(str, 1, 4)

in streng starter i position 1

/nuno

Dim str As String
Dim str2 As String

Private Sub Command1_Click()
str = Mid(str, 0, 4)

MsgBox str2

End Sub

Private Sub Form_Load()
str = InputBox(\"Hvor bor du?\")
str2 = InputBox(\"Hvad er dit postnummer?\")
End Sub

Og ????
Hvad er dit problem?

Du har startet en form, som under opstart spørger dig efter adresse og derefter efter postnummer. (Adressen overskrives derved !)
Så har du sikkert en knap på denne form, som du kan trykke på for at få vist ... UPS!

Der skal stå mid(str,1,4) for at få vist de 4 første tegn.

jelzin - hvad folk ikke alt finder på , som navn  :-)

moses >> :0)

Lige præcist, hvad jeg mener !!