Dim schadenummer As String
                schadenummer = schadestraat.ToLower()
                If schadestraat Is Nothing Then
                    schadestraat = "Onbekend"
                End If
                If schadestraat.Length > 7 Then
                    schadenummer = schadenummer.Replace("1", "")
                    schadenummer = schadenummer.Replace("2", "")
                    schadenummer = schadenummer.Replace("3", "")
                    schadenummer = schadenummer.Replace("4", "")
                    schadenummer = schadenummer.Replace("5", "")
                    schadenummer = schadenummer.Replace("6", "")
                    schadenummer = schadenummer.Replace("7", "")
                    schadenummer = schadenummer.Replace("8", "")
                    schadenummer = schadenummer.Replace("9", "")
                    schadenummer = schadenummer.Replace("0", "")
                End If
                schadenummer = schadenummer.Replace("-", "")
                schadenummer = schadenummer.Replace(" ", "")
                schadenummer = schadenummer.Replace("straat", "")
                schadenummer = schadenummer.Replace("laan", "")
                schadenummer = schadenummer.Replace("baan", "")
                schadenummer = schadenummer.Replace("rue de", "")
                schadenummer = schadenummer.Replace("rue", "")
                schadenummer = schadenummer.Replace("avenue", "")
                schadenummer = schadenummer.Replace("chemis", "")
                schadenummer = schadenummer.Replace("weg", "")
                schadenummer = schadenummer.Replace("boulevard", "")
                schadenummer = schadenummer.Replace("pad", "")
                schadenummer = schadenummer.Replace("'", "")
                schadenummer = schadenummer.Replace(".", "")

                If schadestraat.Length >= 12 Then
                    schadestraat = schadestraat.Substring(0, 12)
                End If
                Dim schadeAfkorting As String = getLetters(schadeplaats)
                If IsNothing(schadeAfkorting) Then
                    schadenummer = schadenummer.Insert(0, "BE")
                Else
                    schadenummer = schadenummer.Insert(0, getLetters(schadeplaats).Substring(0, 2).ToUpper)

                End If
                schadenummer = schadenummer.Insert(0, datumschade.ToString("yyMMdd"))