Ошибка в коде программы VB

[Мина]

подчеркивает InputVector и OutputVector, в чем ошибка?

Public Class Form1
Function F1(ByVal x() As Single) As Boolean
F1 = True
For i = 1 To x.GetUpperBound(0) - 1
If x(i) > x(i + 1) Then
Else
x = False
End If
Exit For
Next
End Function
Private Sub btnПуск_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnПуск.Click
Dim TA(), TB() As Single
Dim n As Integer
txtЖурнал.Clear()
n = InputBox("n=?")
txtЖурнал.AppendText("n=" & n & vbCrLf)
ReDim TA(n), TB(n)
InputVector(TA, "TA")
txtЖурнал.AppendText("Вектор ТА" & vbCrLf)
OutputVector(TA, txtЖурнал)
InputVector(TB, "TB")
txtЖурнал.AppendText("Вектор ТB" & vbCrLf)
OutputVector(TB, txtЖурнал)
If F1(TA) Then
txtЖурнал.AppendText("TA УПОРЯДОЧЕН" & vbCrLf)
Else
OutputVector(TA, txtЖурнал)
End If
If F1(TB) Then
txtЖурнал.AppendText("TB УПОРЯДОЧЕН" & vbCrLf)
Else
OutputVector(TB, txtЖурнал)
End If
End Sub
End Class

[Zer0]

Может быть потому что в VB нет таких подпрограмм?)