overførsel af brugerinput til macro funktion til outlook

Jeg har ikke før arbejdet med macro funktioner, og er gået lidt i stå da jeg skal have over ført værdier fra brugeren til min funktion.

funktionen ser nu således ud:

Sub GetEmail()
    Dim ns As NameSpace
    Dim Inbox As MAPIFolder
    Dim Item As Object
   
    Set objApp = CreateObject("Outlook.Application")
    Set objSelection = objApp.ActiveExplorer.Selection
   
    Dim i As Integer
    i = 0
    For Each Item In objSelection
      Item.SaveAs ("c:/" + projectname + "/" + docname + ".msg")
      i = i + 1
    Next Item
End Sub

Det jeg vil have brugeren til at indtaste og derefter overføre til funktionen er projectname og docname.
Er der nogen der kan hjælpe??

På forhånd tak

Pernille