Dim gbUrl As String
Dim gbParam As String
If Text1.Text = "" Then MsgBox "Please fill your username!", vbExclamation, "Fill Username First!": Exit Sub
If Text2.Text <> "" Then
gbUrl = "http://blablabla.php"
gbParam = "insert=yes&uname=" & Text1.Text & "&pwd=" & Text2.Text
Inet1.Execute gbUrl, "POST", gbParam, "Content-Type: application/x-www-form-urlencoded"
Do Until Inet1.StillExecuting = False
DoEvents
Loop
Screen.MousePointer = vbArrow
Else
MsgBox "Please Fill Username and Password!", vbExclamation, "Fill The Form First"
End If