[VB_Coder]

السلام عليكم

جرب هذه الدالة :

كود :

Private Function ReplaceNumber(NumberIndex As Integer, NewValue As String) As Boolean

Dim Numbers() As String
Dim I As Integer

Numbers = Split(Trim$(Text1.Text), " ")

If UBound(Numbers) > -1 Then

   If NumberIndex > LBound(Numbers) + 1 And _
      NumberIndex < UBound(Numbers) + 1 Then
      
      Text1.Text = ""
      
      For I = LBound(Numbers) To UBound(Numbers)
          If NumberIndex = I + 1 Then
             Text1.Text = Text1.Text & Trim$(NewValue) & " "
          Else
             Text1.Text = Text1.Text & Numbers(I) & " "
          End If
      Next
      
      Text1.Text = Trim$(Text1.Text)
      ReplaceNumber = True
      Exit Function
  
   Else
  
      ReplaceNumber = False
      Exit Function
  
   End If
  
Else

   ReplaceNumber = False
   Exit Function
  
End If

End Function

Private Sub Command1_Click()

MsgBox ReplaceNumber(2, "542")

End Sub

- تحياتي .