Mensaje ligado a combobox

dentro de select case añade al final:
Case Else
         MsgBox "Material no disponible"
Saludos (recuerda si das por terminada la pregunta, cierra y valora)

Muchas gracias por tu ayuda. La estructura de mi código es la siguiente. Tengo varios similares dependiendo del valor del textbox 12
Private Sub CommandButton2_Click()
Dim X As Integer
If TextBox12 = "3,96" Then
Select Case ComboBox3.Value
Case Is = "Redondo"
If Sheets("ACERO 12L14 RED 4 MM").Range("I" & Rows.Count).End(xlUp).Value <= Val(TextBox4) Then
X = MsgBox("*** ACERO 12L14 REDONDO 4 MM Ó 5/32 ***" & vbCr & "NO se puede realizar la cantidad solicitada" & Sheets("ACERO 12L14 RED 4 MM").Range("I" & Rows.Count).End(xlUp) & " Kilos", vbInformation, "EXISTENCIA INSUFICIENTE - ACERO 12L14 REDONDO 5/32"" Ó 4 MM ")
End If
If Sheets("ACERO 12L14 RED 4 MM").Range("I" & Rows.Count).End(xlUp).Value > Val(TextBox4) Then
X = MsgBox("*** ACERO 12L14 REDONDO 4 MM Ó 5/32 ***" & vbCr & "Con el material existente en la bodega SI se puede realizar la cantidad solicitada la existencia del material es de " & Sheets("ACERO 12L14 RED 4 MM").Range("I" & Rows.Count).End(xlUp) & " Kilos", vbInformation, "EXISTENCIA SUFICIENTE- ACERO 12L14 REDONDO 5/32"" Ó 4MM ")
End If
Case Is = "Hexágono"
MsgBox "El material seleccionado no esta incluido actualmente en el inventario" & vbCr & "*** ACERO 12L14 HEXÁGONO 4 MM Ó 5/32 ***", vbInformation, "ACERO 12L14 HEXÁGONO 5/32"" ó 4 MM "
Case Is = "Cuadrado"
MsgBox "El material seleccionado no esta incluido actualmente en el inventario" & vbCr & "*** ACERO 12L14 CUADRADO 4 MM Ó 5/32 ***", vbInformation, "ACERO 12L14 CUADRADO 5/32"" ó 4 MM "
Case Else
         MsgBox "Material no disponible"
End Select
End If
Si agrego la instrucción que me dices no pasa nada no se donde puede estar el error
muchas gracias

He simplificado para ver donde esta el error y no lo veo, te envío como lo he simplificado y ejecutalo, si te da problemas, posteame tu dirección de correo y te envío el fichero de muestra para que lo veas..
Private Sub CommandButton2_Click()
Dim X As Integer
If TextBox12 = "3,96" Then
Select Case ComboBox3.Value
Case Is = "Redondo"
MsgBox "el material esta en el inventario"
Case Is = "Hexágono"
MsgBox "El material seleccionado no esta incluido actualmente en el inventario"
Case Is = "Cuadrado"
MsgBox "El material seleccionado no esta incluido actualmente en el inventario"
Case Else
MsgBox "Material no disponible"
End Select
End If
End Sub

Gracias por tu ayuda
Ya me funciona perfectamente pero todavía no logro resolver la siguiente parte
te lo explico de la siguiente forma
dentro de un combobox tengo 4 materiales (3.96mm, 15mm 20 mm y 18 mm)
Como debo hacer para que me salga que no hay existencia del material si selecciono una opción diferente a 3.96 mm
gracias por tu colobaración