Pls help vb code

I don't understand what they means, can anyone help :

Public Function WritePOSvalue(ByRef iarr_Field() As String, ByVal ii_Loc As Integer, ByVal is_Value As String, _
Optional ByVal id_Date As Date, Optional ByVal in_Num As Double, Optional ByVal ii_Repect As Integer) As String
Dim fs_RtnVal As String
Dim fs_Type As String
Dim fi_Size As Integer
Dim fi_ValLen As Integer
Dim fi_Loop As Integer
Dim fi_Start As Integer
Dim fs_Format As String
Dim fs_TmpStr As String

fs_RtnVal = ""
fs_Type = iarr_Field(ii_Loc, 0)
If IsMissing(ii_Repect) Then
ii_Repect = 0
End If
Select Case fs_Type
Case "X": 'String
fi_Size = Val(iarr_Field(ii_Loc, 1))
fi_ValLen = Len(is_Value)

If fi_ValLen <= fi_Size Then
fs_RtnVal = is_Value
fs_RtnVal = Replace(fs_RtnVal, Chr(13), ":", 1, ii_Repect)
fs_RtnVal = Replace(fs_RtnVal, Chr(13), " ")
fs_RtnVal = Replace(fs_RtnVal, Chr(10), " ")
Else
fi_Loop = 1
fi_Start = 1
Do While fi_ValLen > 0 And ii_Repect > -1
fs_TmpStr = Mid(is_Value, fi_Start, 1)
'Encode the special char
Select Case fs_TmpStr
Case ":"
fs_TmpStr = "?:"
Case "'"
fs_TmpStr = "?'"
Case "?"
fs_TmpStr = "??"
End Select
If fs_TmpStr = Chr(13) Then
fs_TmpStr = ":"
ii_Repect = ii_Repect - 1
fi_Loop = 0
ElseIf fs_TmpStr = Chr(10) Then
fs_TmpStr = ""
Else
fi_Loop = fi_Loop + 1
End If
fs_RtnVal = fs_RtnVal & fs_TmpStr
fi_ValLen = fi_ValLen - 1
fi_Start = fi_Start + 1
If fi_Loop = fi_Size Then
ii_Repect = ii_Repect - 1
fi_Loop = 1
If ii_Repect > 0 Then
fs_RtnVal = fs_RtnVal & ":"
End If
End If
Loop
End If

条 code 未完，得一半，贴埋下半节再睇

仲有，请用 code tag

Case "D": 'Date
fs_Format = iarr_Field(ii_Loc, 1)
If IsDate(id_Date) Then
If id_Date = gdDummy Then
fs_RtnVal = ""
Else
fs_RtnVal = Format(id_Date, fs_Format)
End If
Else
fs_RtnVal = ""
End If

Case "9": 'Numeric (Integer / Floating Point)
fs_Format = iarr_Field(ii_Loc, 1)
If IsNumeric(in_Num) Then
fs_RtnVal = Format(in_Num, fs_Format)
Else
fs_RtnVal = "0"
End If

End Select
WritePOSvalue = fs_RtnVal & ":"
End Function

略略睇过，看来系将 String is_value transform to another format based on the information of the two dimension array iarr_Field()

条 code 几有趣，系典型既反面教材

即系点, 我想知段 code 的作用?

By the way, what do u means by 反面教材?

所谓反面教材，就系指条 code d variable 同 funciton 名描述性好低，就算比你了解晒个 funciton 既 logic，你都唔会知条 code 背后既真正目的。举个例 你可以估到上面条 code 真正意图吗?? 如果写成咁就一目了然 讲返你条 code, 主要系对 parameter is_Value 做一d 处理，但问题系，is_Value 系一个咩野 value 呢? 系个 function 入面根本估唔到，仲有个 function 名，WritePOSValue，除左 POS 知 道可能系 Point of Sales 之外，WritePOSValue 到底系咩野意思呢? 成条 code 只系做转换，冇 write 既动作，到底 write 去边? 抑或只系 write 落去 return value 度呢，我谂只有写个个人至知。

仲有唔该你问问题之前交待一下问题既背景资料，就咁贴条 code 出来，就算呢度d 高手想答你都答你唔到