VB.NET请教数组返回问题

Private Sub QIHAO()
Try
TextBox2.Text = ""
Dim b() As String = konge1() '所有调用konge函数去除空格回车
Dim longdu As Integer
For longdu = 0 To b.Count - 1
MsgBox(b(longdu), 26, "警告")
Dim shujutou As String = b(longdu).Substring(0, 4)
If shujutou = "AABB" Then
JieXiAABB()
Else
MsgBox("非标准数据包或空数据包!", 26, "警告")
TextBox2.Text = "非标准数据包或空数据包，不能解析!"
End If
Next
Catch ex As Exception
MsgBox("非标准数据包或空数据包!", 26, "警告")
TextBox2.Text = "非标准数据包或空数据包，不能解析!"
MessageBox.Show(ex.Message)
End Try
End Sub
Private Function konge1() As String()
Dim a As String = TextBox1.Text
Dim b As String = Replace(a, " ", "")
b = b.Replace(vbNewLine, "")