vb（vs）中，一个sub里面如何调用另一个sub的结果值

我想用vb做一个随机点名，获取了系统时间的秒，来当随机数。功能已经初步实现。
我打算继续完善一下，用一个数组存储学生姓名，再输出对应学生姓名。
目前还在测试阶段，代码一点都不完善。
以下是我的代码：
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    
   getanum()
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub

Sub getanum()
    Dim atime As String
    atime = CStr(Now)
    Dim asecond As String
    asecond = Microsoft.VisualBasic.Right(atime, 2)
    'MsgBox(asecond)
    TextBox1.Text = asecond
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Loa
End Sub

End Class

我前天刚捡起来学习vb。所以有以下问题：
1.存学生名字的数组需要单独建立一个sub么？
2.如何再输出数组元素的时候，调用getanum（）当中获得的数字
（3）.学生名字数组只能一个一个添加么，能否添加一个excel表格 //这一天先不用管

点击按钮1 出现个随机数
点击按钮2 出现数组中对应的名字

我找到了一个办法 设定一个公共变量
Public pubg As Integer
然后数组的话 我一个名字一个名字输入吧