string numbers to array integer

 Dim test() As Integer = str.Split(";").Select(Function(x) CInt(x)).ToArray

trim array

Dim arreglo() As String = arreglo.Split(c).Select(Function(elem) elem.Trim).ToArray

array trim y elementos no vacíos

Dim str As String = "|1|2|5|7|8|9|122   |0| 9   9|"

Dim array() As String = str.Split("|").Select(Function(w) w.Trim).Where(Function(w) w.Length > 0).ToArray

Select case meses

Select Case mes
            Case "Enero"
            Case "Febrero"
            Case "Marzo"
            Case "Abril"
            Case "Mayo"
            Case "Junio"
            Case "Julio"
            Case "Agosto"
            Case "Septiembre"
            Case "Octubre"
            Case "Noviembre"
            Case "Diciembre"
        End Select