Can you help me with this

TEXT will not accept the number zero and negative numbers.

Please more detail. What you mean about TEXT? it's Textbox?

If it textbox you can use ascii to trap zero and negative sign.

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 45, 48  
    KeyAscii = 0
End Select
End Sub

Apart from that i'm a newbie here,i'm a bit lost too.

yup its a textbox

yup its a textbox

I already answer your question in my second post.

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.