Variable wird nicht übergeben

Private Sub CommandButton1_Click()
Button = Me.CommandButton1.Caption
Index_bau
End Sub

nun soll also die Sub Index_bau aufgerufen werden (befindet sich in Modul1 meines Projekts)
Und hier soll die Variable "Button" mit dem Wert aus dem obigen Code verarbeitet werden.
Hier der Code von der weiteren Sub Index_bau:
Sub Index_bau()
Dim Buchstaben
Dim i As Long, lngLetzte As Long, rg As Range
Dim AnzWS As Long
Buchstaben = Button & "*"
With Sheets("Index A")
lngLetzte = IIf(IsEmpty(.Cells(Rows.Count, 2)), _
.Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
End With
If lngLetzte >= 4 Then
Sheets("Index A").Range("B4:B" & lngLetzte).ClearContents
'alle Hyperlinks in diesem Bereich löschen
Sheets("Index A").Range("B4:B" & lngLetzte).Hyperlinks.Delete
End If
For i = 1 To Sheets.Count
If Not LCase(Sheets(i).Name) Like "index*" Then
If LCase(Sheets(i).Name) Like Buchstaben Then
If rg Is Nothing Then
'beim 1. mal, rg zeigt noch auf keine Zelle
Set rg = Sheets("Index A").Range("B4")
Else
'1 Zeile tiefer, selbe Spalte
Set rg = rg.Offset(1, 0)
End If
rg.Value = Sheets(i).Name
ActiveSheet.Hyperlinks.Add Anchor:=rg, Address:="", SubAddress:= _
rg.Value & "!A1", TextToDisplay:=rg.Value
End If
End If
Next i
Set rg = Nothing
Sheets("Index A").Select
End Sub

Doch sobald aus der 1. Sub CommandButton1_Click()
zur zweiten Sub Index_bau()
verzweigt wird, verliert meine Variante Button stehts ihren Wert
Was mach ich falsch ?
Was muss ich tun, um die Variante Button so zu füllen dass diese von der einen- zur anderen Sub
übergeben wird und erst zu Ende der Sub Index_bau wieder geleert wird ?
Herzlichen Dank für Eure Hilfe !!!