新手求救！明天要交！在线等，同一个窗体里面，我想在第二函数用回第一条函数获得的值，怎么办？

由于我是超级新手，所以很多简单的都不怎么清楚，但是安排的任务一点不含糊，研究一天未果，只能来求救了！！！下面的是我百度后，综合写出来的，什么TYPE_GET，ban_get，都是随便取的，请问一般要怎么取？具体我需要帮忙修改的，我在代码里面写明白了。Public banshu As String
Public jizhong As String
Private Sub type_get()   Dim text As String
      Open "C:\data\ReadCamera\QR.txt" For Input As #1
   Do While Not EOF(1)
      Line Input #1, text
   Loop
   jizhong = Left(text, 11)
   banshu = Mid(text, 34, 1)
   Debug.Print banshu
   Close
End Sub   Private Sub ban_get()
   Dim a As String, h, w
   Dim csvfile As String
   Dim hang As Integer, lie
   csvfile= "C:\label\铭板.csv" 
   a = "A"
   h = "H"
   w = "W"
   If banshu = a Then ‘（这里的banshu怎么能用上面取得的值？）
   Debug.Print "版数A"
   Open csvfile For Input As #2’（这里我是想打开一个CSV文件，然后按照上面获得的jizhong值，查找CSV第一列里相同值，然后输出这个数值的行数）       ElseIf banshu = h Then
     Debug.Print "版数H"
     ElseIf banshu = w Then
   Debug.Print "版数W"
   
   
   End If
   
   
End Sub