Перенос строки

Replace(Replace(sLine, VBCR, ""), VBLF, "")

sLine = Replace(Replace(sLine, Chr(13), ""), Chr(10), "")

   For i = 0 To 5
    msgbox "Alfa"
     Next i

Option Explicit
 
Private Sub Form_Load()
    Dim Value As String
    
    Value = "Кефир: 1р. 44 коп, молоко: 2р. 43 коп."
    
    Value = Replace(Value, ". ", "")
    
    MsgBox Value
End Sub

Private Sub Form_Load()
    Dim Value As String
    
    Value = "1. рр 4"
    
    Value = Replace(Value, ". ", "")
    
    MsgBox Value
End Sub

Open "C:\Files\Documents\Íîâûé òåêñòîâûé äîêóìåíò.txt" For Binary As #1
txt = Space(LOF(1))
Get #1, , txt
 
'a = Replace(txt, ". ", "")
 
Var = Split(txt, " ")

Sub DemoOpenAsTextStream3()
 
Open "C:\Files\Documents\Íîâûé òåêñòîâûé äîêóìåíò.txt" For Binary As #1
txt = Space(LOF(1))
Get #1, , txt
 
'a = Replace(txt, ". ", "")
 
Var = Split(txt, " ")
 
'Var = Array(2, 43, 12, 56, 1, 33, 91)
 
 
 For i = LBound(Var) To UBound(Var)
BubbleSort2 Var
  Debug.Print i, Var(i)
 Next
 
   Close #1
End Sub

Private Sub BubbleSort2(Var As Variant)
 Dim LB As Long, UB As Long
 Dim i As Long, j As Long
 Dim Tmp As Variant
' On Error GoTo ErrSort 'array not dimmed
 LB = LBound(Var)     'lower bound
 UB = UBound(Var)     'upper bound
 For i = LB To UB - 1
  For j = i + 1 To UB
   If Var(i) > Var(j) Then
    Tmp = Var(i)       'swap elements
    Var(i) = Var(j)
    Var(j) = Tmp
   End If
    Next
 Next
 
End Sub

If Val(Var(i)) >  Val(Var(j)) Then