Code:
Private Sub cmdEmail_Click()
    Dim strURL As String
    
    If Len(txtcomment.Text) <= 16 Then
        MsgBox "Please enter a comment of atleast 16 characters", vbExclamation
    Else
        'Enter URL to your PHP file.
        strURL = "http://www.lukeidiot.com/********.php"
        
        Select Case Inet1.OpenURL**************************
            Case "Success": MsgBox "Successfully sent", vbInformation
            Case "Failure": MsgBox "Error Sending", vbExclamation
            Case Else: MsgBox "No/unknown response", vbQuestion
        End Select
        Unload Me
    End If
End Sub