Sub SubA()
      call subB()
End sub
 
Sub SubB()
 
      msgbox "Beni çağıran modul şudur." & CodeContextObject.Name
      msgbox "Beni çağıran sub şudur." & ??????
      msgbox "Şu anda modülündeyim : " & ??????
      msgbox "Şu anda sub ındayım." & ??????
      msgbox "Satırdayım. " & ??????
 
End sub