Есть обработчик события

Private Sub miExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles miExport.Click
...
End Sub

В C# тело метода я написал бы так

object o = sender as MenuItem
if (o != null)
{
'Приведение типов прошло успешно
}

А как это же самое сделать на VB.NET?

Уже нашел. CType не подходит, так как там нужно точно знать тип.

Вот правильное решение

If TypeOf sender Is MenuItem Then
MsgBox("OK")
End If