How to minimized repet coding in Select Case

Question

I Want to know how to write common coding for Select Case.

Select Case cboReportType.SelectedValue.ToString.Substring(0, 1)
            Case Is = "02&quo