Найти минимальное и максимальное значение икс

Option Explicit
 
Private Sub Form_Load()
    Dim Count As Long, V As Single, Min As Single, Max As Single
    Count = Val(InputBox("Какое кол-во измерений", , "3"))
    Max = -3.4028235E+38: Min = 3.4028235E+38
    Do While Count
        V = CSng(InputBox("Подайте значение очередного измерения"))
        If V < Min Then Min = V
        If V > Max Then Max = V
        Count = Count - 1
    Loop
    MsgBox "Хмин=" & Min & ". Хмакс= " & Max
End Sub

Dim Count As Long, V As Single, Min As Single, Max As Single
    Count = Val(InputBox("Какое кол-во измерений"))
    
    Do While Count
        V = CSng(InputBox("Подайте значение очередного измерения"))
        If V < Min Then Min = V
        If V > Max Then Max = V
        Count = Count - 1
    Loop
    MsgBox "Хмин=" & Min & ". Хмакс= " & Max

Sub Task()
   Arr=InputBox("Введите значения X, разделяя их запятой")
   V=Split(Arr,",")
   xmax#=Cdbl(V(0))
   xmin#=Cdbl(V(0))
   For i%=1 to Ubound(V,1)
        x#=Cdbl(V(i%))
        If x# > xmax# then xmax#=x#
        If x# < xmin# then xmin#=x#
   Next i%
   Debug.print "Xmax=";xmax#
   Debug.print "Xmin=";xmin#
End Sub

    Dim Z As Double
    Z = CDbl("3.5")

    Dim Z As String
    Z = Format$(0#, ".")