Userform - input/VBA

Det er lidt uklar hvad du vil
og hvad med "inputboxen" ? er det en af textboxene?

I UserForm´en er der to inputboxe, 1 til kundenr, 1 til dato.
Der to buttons, 1 der hedder Næste, som udfører den ønskede handling og genstarter userformen, 1 knap der hedder afslut.
Men VBA virker ikke - Hjælp ønskes! Den Totalt uvidende!!

Private Sub Userform_Click()
Dim dato As String
Dim kundenr As String
Dim omraade As Range
Dim i As Integer
Range("C5").Select
Set omraade = ActiveCell.CurrentRegion
For i = 1 To omraade.Rows.Count
If ActiveCell.Offset(i, 0).Value = kundenr Then
ActiveCell.Offset(i, -1).Value = dato
End If
Next
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub TextBox1_Change()
End Sub

Private Sub TextBox2_Change()
End Sub

Private Sub UserForm_Initialize()
Me.Caption = "INDTAST DATO & KUNDENR."
Me.BackColor = RGB(10, 25, 100)
End Sub

Har du mulighed for at sende filen ?
så var det noget lettere at finde løsning
Samt en kort beskrivelse af hvad formen skal gøre

Jeg har selv fundet ud af det, så jeg jeg fjerner mit spørgsmål, men du får bare de point!