Реализация стека

Public Class Form1
 
    Class MyStack
        Dim stck(100) As Char  'создаю массив для хранения стека
        Public tos As Integer = 0 'индекс вершины стека
        Public mess As String
        'функция добавления элемента в стек
        Public Function Push(ch As Char)
            If (tos = stck.Length) Then
                mess = "Стек переполнен"
            End If
            stck(tos) = ch
            tos += 1
        End Function
        'функция чтения элемента из стека
        Public Function Pop() As Char
            If (tos = 0) Then
                mess = "Стек пуст"
                Return "0"
            Else : tos -= 1
                Return stck(tos)
            End If
        End Function
        Public Function IsFull()
            Return tos = stck.Length
        End Function
        Public Function IsEmpty()
            Return tos = 0
        End Function
        Public Function GetNum()
            Return tos
        End Function
 
    End Class
 
 
 
    Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim mystack As New MyStack()
        Dim element As Char
        mystack.Push(CChar(TextBox1.Text))
        TextBox1.Text = ""
        Label1.Text = mystack.tos
        Label2.Text = mystack.mess
    End Sub
 
End Class

    Dim mystack As New MyStack()
    Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'Dim element As Char
        mystack.Push(CChar(TextBox1.Text))
        TextBox1.Text = ""
        Label1.Text = mystack.tos
        Label2.Text = mystack.mess
    End Sub