Hi Guys

I'm sure to many of you this is very obvious, but to me it's a problem.
On a userform the user must key in a barcode [18 digits]. 90plus%
of the time only the last 2 numbers change. Thus I would like to give him
a start & display the previous number in the textbox. I've succeeded
with that, but no matter what I try I keep on getting an error in the
the range("Ont11") ie if I enter 123456789012345678 I would get
this displayed in the range : 1.23456789012346E+17
I've tried formatting etc without any joy.
Please help this dummy
Tks in advance

Public Sub GetPalId()
Dim userEntry As String
Dim Ont10 As Range

PaletIden.TextBox1.Value = Range("Tet4").Value
PaletIden.Show
userEntry = Val(PaletIden.TextBox1.Value)

Unload PaletIden
Range("Ont11") = userEntry
End Sub

--
HJN