You could simplify the meetsomecondition setting or even avoid it completely with the following modifications
Code:
Sub BoldStart()
Dim p As Paragraph, i As Integer
Dim oRng As Range, meetssomecondition As Boolean
For Each p In ActiveDocument.Paragraphs
Set oRng = p.Range
i = InStr(1, oRng.Text, "-")
'meetssomecondition = i > 0
'If meetssomecondition Then
oRng.End = oRng.Start + i - 1
oRng.Font.Bold = True
'End If
Next p
End Sub
The remmed out lines don't matter if there is no dash in the paragraph since the range is collapsed to an insertion point on those paragraphs.