makrodan trim koduna rağmen hücre içerisinde boşluk atma

[mahmyt]

herkese merhabalar
ekteki excelde barkod uygulamasından gelen verilerden b sütunundaki verileri satır açıp dağıtıyorum ancak koddan gelen veri de sanki hücre içerisinde alt gr + enter işlemi yapmış gibi hücrenin üzerine geldiğim zaman formül çubugunda boşluk görünmektedir.

nerede hata yapıyorum yardımcı olabilir misiniz?

Sub MetinDuzenleme()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim cell As Range
Dim metin As String
Dim ilkYildizIndex As Long
Dim ikinciYildizIndex As Long

Set ws = ThisWorkbook.Sheets("Mal Kabul")

lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' A sütunundaki son satırı bulun

For i = 1 To lastRow
metin = ws.Cells(i, 2).Value ' b sütunundaki metni alın
ws.Cells(i, 5).Value = ws.Cells(i, 3).Value
ws.Cells(i, 1).NumberFormat = "00000"
' İlk yıldızın ve ikinci yıldızın indekslerini bulun
ilkYildizIndex = InStr(1, metin, "*")
ikinciYildizIndex = InStr(ilkYildizIndex + 1, metin, "*")
artiIndex = InStr(1, metin, "+")
If ilkYildizIndex > 0 Then
' * varsa
ws.Cells(i, 2).Value = Mid(metin, ilkYildizIndex + 1, ikinciYildizIndex - ilkYildizIndex - 1) ' B sütununa yaz
ws.Cells(i, 3).Value = Left(metin, ilkYildizIndex - 1) ' C sütununa yaz
ws.Cells(i, 4).Value = Mid(metin, ikinciYildizIndex + 1) ' D sütununa yaz
ElseIf InStr(1, metin, "+") > 0 Then
' + varsa
ilkYildizIndex = InStr(1, metin, "+")
ikinciYildizIndex = InStr(ilkYildizIndex + 1, metin, "+")
ws.Cells(i, 2).Value = Left(metin, ilkYildizIndex - 1) ' B sütununa yaz
ws.Cells(i, 3).Value = Mid(metin, ilkYildizIndex + 1, ikinciYildizIndex - ilkYildizIndex - 1) ' C sütununa yaz
ws.Cells(i, 4).Value = Mid(metin, ikinciYildizIndex + 1) ' D sütununa yaz
Else


End If

Next i
ws.Columns("H:I").Delete
End Sub