Imports System
Imports System.Text.RegularExpressions
 
Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Dim input As String = "a16.2.8ae17.5cef19.2.7sz"
        Dim pattern As String = "[a-z]"
        Dim replacement As String = "-"
 
        Dim ergebnis As String = System.Text.RegularExpressions.Regex.Replace( _
          input, pattern, replacement)
 
        Do While InStr(ergebnis, "--")
            ergebnis = ergebnis.Replace("--", "-")
        Loop
 
        If ergebnis.Substring(0, 1) = "-" Then
            ergebnis = ergebnis.Substring(1, ergebnis.Length - 1)
        End If
        If ergebnis.Substring(ergebnis.Length - 1, 1) = "-" Then
            ergebnis = ergebnis.Substring(0, ergebnis.Length - 1)
        End If
 
        Dim res() As String = ergebnis.Split("-")
 
        Dim i As Integer = 0
 
        For i = 0 To res.Length - 1
            MessageBox.Show(res(i))
        Next
 
    End Sub
End Class

EALA FREYA FRESENA