>>305
Text1.Text は文字列なので、数字が書いてあっても文字だから

If Text1.Text = "" Or Val(Text1.Text) <= 0 Or Val(Text1.Text) >= 65535 Then

じゃなかろーか。