Variable in nächste Prozedur übergeben

Private Sub übergeben?
In meinem Fall möchte ich in dem SUB mit der Variable 'bezeichnung' in einer Schleife einen Begriff speichern, nach dem dann in der PUBLIC SUB der gleichlautende Tabellenblattname gesucht wird.
In einer einzigen Prozedur funktionierts im Test, auf zwei Prozeduren aufgeteilt leider nicht.
Hier ist der Code:
Sub Aufruf()
For i = 1 To 4
aral = Workbooks("Basis.xls").Sheets("Stammdaten").Cells(4 + i, 53)
Call URL_Load(aral)
bezeichnung = Workbooks("Basis.xls").Sheets("Stammdaten").Cells(4 + i, 2) 'HIER IST DIE VARIABLE, DIE ICH ÜBERGEBEN MÖCHTE
Next i
End Sub

Private Sub URL_Load(ByVal sURL As String)
Dim appIE As Object, lfCount As Integer, txtSearch As Long
Dim sTxt As String, txtLine As String, txtbool As Boolean
Set appIE = CreateObject("InternetExplorer.Application")
appIE.navigate sURL
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.Busy = False
sTxt = appIE.document.documentElement.outerhtml
Set appIE = Nothing
Close
Open ThisWorkbook.Path & "\test.txt" For Output As #1
lfCount = 1
For txtSearch = 1 To Len(sTxt)
If txtbool Then
If Mid(sTxt, txtSearch, 1) = vbCr Then
Print #1, txtLine
txtLine = ""
txtbool = False
Else
txtLine = txtLine & Mid(sTxt, txtSearch, 1)
End If
Else
If Mid(sTxt, txtSearch, 1) = vbLf Then lfCount = lfCount + 1
Select Case lfCount
Case 42 To 45: txtbool = True 'Zeile 20 bis 25 Benzin
Case 118 To 120: txtbool = True 'Diesel
End Select
End If
Next
Close
MsgBox "Der Text wurde gespeichert unter:" & vbLf & ThisWorkbook.Path & "\test.txt"
anzahl = Worksheets.Count
For x = 2 To anzahl
If Workbooks("Basis.xls").Sheets(x).Name = bezeichnung Then
Sheets(x).Cells(1, 1) = "Heidi"  'HIER MÖCHTE ICH DEN TABELLENBLATTNAMEN ZUORDNEN
End If
Next x
End Sub