Welcome to the forum!

Sub Test_GetLongURL()
  MsgBox GetLongURL("http://tinyurl.com/3ju3oly")
End Sub

Function GetLongURL(tinyURL As String) As String
  'This project includes references to "Microsoft Internet Controls", shdocvw.dll and
  '"Microsoft HTML Object Library", mshtml.tlb
'Variable declarations
  Dim myIE As New InternetExplorer 'New '
  Dim myDoc As HTMLDocument
  Dim str As String
'Make IE navigate to the URL and make browser visible
  myIE.navigate tinyURL
  myIE.Visible = False
'Wait for the page to load
  Do While myIE.Busy Or myIE.readyState <> READYSTATE_COMPLETE
      DoEvents
  Loop
'Set IE document into object
  Set myDoc = myIE.document
  str = myDoc.Location
  Set myDoc = Nothing
  Set myIE = Nothing
  GetLongURL = str
End Function