You can try connecting with Winsock if it success then it is working.

EDIT:

Something like this:

Add a Winsock control called WS.

Option Explicit
 
Private Sub Form_Load()
    If CheckNOIPStatus(WS, "google.com", 80) = True Then
        MsgBox "It's working"
    Else
        MsgBox "U_U"
    End If
End Sub
 
Private Function CheckNOIPStatus(ByVal Winsock As Winsock, ByVal Host As String, ByVal Port As Integer) As Boolean
    Dim OMFG As Long
 
    Winsock.RemoteHost = Host
    Winsock.RemotePort = Port
 
    Winsock.Connect
    DoEvents
 
    While OMFG < 200000
        OMFG = OMFG + 1
        DoEvents
    Wend
 
    If Winsock.State = sckConnected Then
        CheckNOIPStatus = True
    End If
End Function
 
 

I am not sure if that is what you want...