Excel VBA Customer details Validation

[firebird3334]

I am doing a school project of creating an invoice for a shop.
One of the requirements is that i have to enter customer details like their name, adress 1, town, county, uk postcode and telephone number and have the form entries validated. Could someone take a look st my invoice and see what to do for the validations.
i could send it through email if you could post it down below.
THX.

 

[oldbrewer]

you will not learn much by asking us to do your project for you, and nobody will post their Email address on here. Have a go at it, or at least set out how you hope to tackle it and you will likely get assistance.

 

[firebird3334]

you will not learn much by asking us to do your project for you, and nobody will post their Email address on here. Have a go at it, or at least set out how you hope to tackle it and you will likely get assistance.

I do not expect you to do the whole coursework for me. We have not been taught any VBA code. We are expected to find the codes online but the ones I have found doesn't work with the invoice I made so I am asking for help. I don't understand understand why those codes does not work.
I just need the codes for the validation for the informations i have listed below.

 

[oldbrewer]

ok - post the codes that "do not work" and show us the invoice you have made, please

 

[firebird3334]

ok - post the codes that "do not work" and show us the invoice you have made, please

OK. this code helps me enter just number but i am mot able to limit the digits to 11.

 

[firebird3334]

ok - post the codes that "do not work" and show us the invoice you have made, please

OK. this code helps me enter just number but i am mot able to limit the digits to 11. I am not sure how to show my invoice though.

Private Sub TextBox2_Change()
OnlyNumbers
End Sub

Private Sub OnlyNumbers()
If TypeName(Me.ActiveControl) = "TextBox" Then
With Me.ActiveControl
If Not IsNumeric(.Value) And .Value <> vbNullString Then
MsgBox "Sorry, only numbers"
.Value = vbNullString
End If
End With
End If

End Sub