Word Macro to find the bulleted text

Sub FindBullet()
Dim rngTarget As Word.Range
Dim oPara As Word.Paragraph
Set rngTarget = Selection.Range
With rngTarget
Call .Collapse(wdCollapseEnd).End = ActiveDocument.Range.End
For Each oPara In .Paragraphs
If oPara.Range.ListFormat.ListType = _ WdListType.wdListBullet Then
oPara.Range.Select
'Selection.Delete Unit:=wdCharacter, Count:=1
'Exit For
End If
Next
End With
End Sub

Formating currency

With decimals

[>=10000000]#\,##\,##\,##0.00;[>=100000]#\,##\,##0.00;##,##0.0

Without decimals

[>=10000000]#\,##\,##\,##;[>=100000]#\,##\,##;#,###

Displaying Crystal Report in VB6.0

Dim Report As New CrystalReport1
Public CrxApplication As New CRAXDRT.Application
Public CrxReport As New CRAXDRT.Report
Public CrxPara As New CRAXDRT.ParameterValues
Dim cpars As CRAXDRT.ParameterFieldDefinitions
Dim cpar As CRAXDRT.ParameterFieldDefinition

Private Sub Form_Activate()

Set CrxReport = CrxApplication.OpenReport(App.Path & "\payslip.rpt", 0)
CrxReport.Database.LogOnServer "p2ssql.dll", "server", "db", "userid", "Password"
CrxReport.Database.Tables(1).ConnectionProperties.Item("password") = "Password"
CrxReport.ParameterFields.GetItemByName("@employeeid").AddCurrentValue CStr(frmpayslip.str)
CrxReport.ParameterFields.GetItemByName("@month").AddCurrentValue CInt(frmpayslip.cmbMonth.ItemData(frmpayslip.cmbMonth.ListIndex))
CrxReport.ParameterFields.GetItemByName("@year").AddCurrentValue CInt(frmpayslip.cmbYear.Text)

Crppayslipdata.ReportSource = CrxReport
Crppayslipdata.ViewReport

Crppayslipdata.Visible = True
CrxReport.EnableParameterPrompting = True
End Sub