Function dspFormat_FormatNumber(strNumber, sFormat)
	Dim strTemp, aFormat, sDecSymbol
	aFormat = Split(sFormat, ";")
	sDecSymbol = Mid(FormatNumber(1,1,0,0,0),2,1)
	strNumber = Replace(strNumber, ".", sDecSymbol)
	If sFormat <> "" and IsArray(aFormat) and IsNumeric(strNumber) and sDecSymbol <> "" then
		If aFormat(1) = "K" then
			strNumber = strNumber / 1000
		ElseIf aFormat(1) = "M" then
			strNumber = strNumber / 1000000
		End If
		Select Case aFormat(0)
		Case "Currency"
			strTemp = FormatCurrency(strNumber, aFormat(2), aFormat(4), aFormat(3), aFormat(5))
		Case "Percent"
			strTemp = FormatPercent(strNumber, aFormat(2), aFormat(4), aFormat(3), aFormat(5))
		Case Else
			strTemp = FormatNumber(strNumber, aFormat(2), aFormat(4), aFormat(3), aFormat(5))
		End Select
		If aFormat(1) = "$" Or aFormat(1) = "£" Or aFormat(1) = "€" Then
			strTemp = aFormat(1) + strTemp
		ElseIf aFormat(1) <> "None" Then
			strTemp = strTemp + aFormat(1)
		End If
	Else
		strTemp = strNumber
	End If
	dspFormat_FormatNumber = Replace(strTemp,chr(32),chr(160))
End Function