[Gfields]

You could try this. Don't forget to change the relevant bits

Quote:

Private Sub CommandButton1_Click()
&nbsp; &nbsp; If TextBox1.Text <> "" Then
&nbsp; &nbsp; &nbsp; &nbsp; DoYourPrintThing
&nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; msg = MsgBox("You need something in the textbox", vbCritical + vbOKOnly, "Warning")
&nbsp; &nbsp; End If
End Sub