Option Explicit

Public Function GetString() As String
    GetString = "ABCDEFG"
End Function


Public Function ValidateString(ByVal str As String) As Boolean
    ValidateString = False
    
    If str = "ABCD" Then
        ValidateString = True
    Else
        Err.Raise Err.Number, , "不正确"
    End If
End Function

Public Function GetDateTime() As Date

    GetDateTime = Now
    
End Function

using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;

namespace TestMyVBControl
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void btnTest_Click(object sender, EventArgs e)
        {
            MyVBControl.TestClass test = new MyVBControl.TestClass();
            MessageBox.Show(test.GetString());
        }

        private void btnValidate_Click(object sender, EventArgs e)
        {
            MyVBControl.TestClass test = new MyVBControl.TestClass();
            try
            {
                MessageBox.Show(test.ValidateString("ABCD").ToString());//正确
                MessageBox.Show(test.ValidateString("ABCDE").ToString());//有错误
            }
            catch(Exception ex)
            {
                MessageBox.Show(ex.Message);
                return;
            }
        }

        private void btnGetDate_Click(object sender, EventArgs e)
        {
            MyVBControl.TestClass test = new MyVBControl.TestClass();
            MessageBox.Show(test.GetDateTime().ToString());
        }
    }
}