Module Com_Clear
    Public Sub Clear()
        Console.TextBox1.Text = Nothing
    End Sub
End Module