Código: Seleccionar todo

Private Const ASSOCSTR_EXECUTABLE = 2
  
Private Declare Function AssocQueryStringW Lib "shlwapi.dll" (ByVal flags As Long, ByVal str As Long, ByVal pszAssoc As Long, ByVal pszExtra As Long, ByVal pszOut As Long, ByRef pcchOut As Long) As Long

Private Function GetDefaultBroswer() As String
  
  Dim sCadena   As String
  Dim iBytes       As Long
  Dim hret         As Long
 
  hret = AssocQueryStringW(0, ASSOCSTR_EXECUTABLE, StrPtr("http"), 0, 0, iBytes)
  If hret Then
  sCadena = Space(iBytes)
  hret = AssocQueryStringW(0, ASSOCSTR_EXECUTABLE, StrPtr("http"), 0, StrPtr(sCadena), iBytes)
  GetDefaultBroswer = sCadena
  End If
  
End Function

Private Sub Form_Load()
MsgBox (GetDefaultBroswer())
End Sub