Как сделать это функцией?

Question

Я пытаюсь сделать это в функции:

Dim o As Object 
o = CreateObject("InternetExplorer.Application") 
o.Navigate2("http://example.org", "", "", "", "") 

Я пробовал этот код, но он не компилируется:

Public Function goto(website) 

Dim o As Object 
o = CreateObject("InternetExplorer.Application") 
o.Navigate2("" & website & "", "", "", "", "") 

End Function 

Что такое правильный способ сделать это?

Answer 1

Вы по существу поняли это. Однако вы не можете использовать зарезервированные ключевые слова, такие как goto для имени своей функции, что является одной из причин этого.

Также не забудьте указать типы ваших параметров и тип возврата. Если вам не нужен тип возврата, используйте процедуру подменю вместо (который является по существу функцией без возвращаемого значения):

Public Sub Browse(website As String) 
    ' This is simply your existing code: 
    Dim o As Object 
    o = CreateObject("InternetExplorer.Application") 
    o.Navigate2(website, "", "", "", "") 
End Sub