If (ex.Message = "Die zugrundeliegende Verbindung wurde geschlossen: Der" & _
  "Remotename konnte nicht aufgelöst werden.") Then

[...]
        Catch ex As WebException
            If ex.Status = WebExceptionStatus.ConnectFailure OrElse ex.Status = _
              WebExceptionStatus.NameResolutionFailure Then
                Return ("Der angegebene Server existiert nicht.")
            Else
                Return ("Programmfehler")
            End If
        End Try
[...]