Это безопасно. Вы можете проверить это, попытавшись скомпилировать следующее:
Dim x As Integer
Select Case x
Case 6
Dim z As Integer = 6
Case 7
Dim z As Integer = 7
End Select
Console.Write(z)
И заметив, что вы получите ошибку компиляции.
Конечно, это сокращает читабельность ИМО. Возможно, вам все равно следует объявить об этом в начале процедуры.