Private Sub separaStringa(ByVal stringaDaSeparare As String)

        Dim stringaSeparata() As String = Split(stringaDaSeparare.ToString.Replace("-", " "), " ", -1)

        For i As Integer = 0 To stringaSeparata.GetUpperBound(0)
            MsgBox(stringaSeparata(i))
        Next
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim stringaDaSeparare As String = "Ns. Conferma d'Ordine-2008-231 del 26/02/2008"

        separaStringa(stringaDaSeparare)

        'Oppure
        separaStringa("Ns. Conferma d'Ordine-2008-231 del 26/02/2008")

    End Sub