Public Class MyMessageBox
    PRivate Shared Function Show(Text as string)
    ' hier schicke ich den Text in die übersetzung
        return MessageBox.Show(Text)
    end Function
 
    ' diese klasse hat 12 funktionen genau gleich wie die echte messagebox
End Class

Imports MyFirma.MyMessageBox AS MessageBox