Visual Basic - Calculadora, dividir por 0

Saludos
Estoy programando una calculadora y quiero que cuando ingrese un numero cualquiera en una caja de texto, y en la otra caja de texto un "0", al realizar la division, en el cuadro de resultado (caja 3) me salga ERROR. Aqui tengo el codigo casi avanzado, solo falta el mensaje de error

Private Sub cmdOperador_Click(Index As Integer)

' Declara las varialbles enteras y reales necesarias
Dim intElem1, intElem2 As Integer
Dim sngResult As Single

' Traspasa los valores de las textbox a las variables
intElem1 = Val(txtElemento1.Text)
intElem2 = Val(txtElemento2.Text)

If Index = 0 Then
sngResult = intElem1 + intElem2 ' Suma
lblOperador.Caption = "+"
Else
If Index = 1 Then
sngResult = intElem1 - intElem2 ' Resta
lblOperador.Caption = "-"
Else
If Index = 2 Then
sngResult = intElem1 * intElem2 ' Multiplicacion
lblOperador.Caption = "x"
Else
If intElem2 > 0 Then
sngResult = intElem1 / intElem2
lblOperador.Caption = "/"
Else
If intElem2 = 0 Then
[CREO QUE POR AKA ESTA LO QUE ME FALTA]
lblOperador.Caption = "?"
End If
End If
End If
End If
End If

' Traspasa el resultado obenido a la textbox correspondiente
txtResultado.Text = Str(sngResult)

Hay muchos If para mi gusto, yo usaria Select Case.
Lo que te falta si es que lo de arriba funciona es
Msgbox("No puedo dividir por cero")
sngResult=0