Sub EditPaste()
  MyEditPaste
End Sub

Sub MyEditPaste(Optional varPassed As String)
  If Not varPassed = vbNullString Then
    MsgBox varPassed
  Else
    Selection.Paste
  End If
End Sub

Sub OtherRoutine()
  MyEditPaste "Test"
End Sub