REM  *****  BASIC  *****

Rem Attribute VBA_ModuleType=VBAModule

Sub OpeningFirefoxWithArguments()

	Dim firefox As String, arg_1 As String, start_firefox As String

	firefox = "firefox"
	arg_1 = "https://google.com"
	start_firefox = firefox & " " & arg_1
	Shell (start_firefox, 0)
   
End Sub