if分の処理を1つにまとめて表示したいのですが、どのようにすればいいでしょうか？
よろしくお願いいたします。

If InStr(1, Replace(b, "-", ""), ".") = 4 Then
If InStr(1, b, "-") Then
a = b
Else
a = " " & b
End If
ElseIf InStr(1, Replace(b, "-", ""), ".") = 3 Then
If InStr(1, b, "-") Then
a = " " & b
Else
a = "  " & b
End If
ElseIf InStr(1, Replace(b, "-", ""), ".") = 2 Then
If InStr(1, b, "-") Then
a = "  " & b
Else
a = "   " & b
End If
End if

私ならこんな感じにしますかね。

InStr(1, Replace(b, "-", ""), ".") の値を変数（仮にx）に入れて、
xが2〜4の範囲であるかのIf、
その中でbに"-"が含まれているかのIf、
含まれていれば a = Space(4 - x) & b
含まれていなければ a = Space(5 - x) & b

これで8行ほどで記述できるかと思いますがどうでしょう？

> if分の処理を1つにまとめて表示したいのですが、どのようにすればいいでしょうか？
「1つにまとめて表示」の意味がよくわからないのですが
プログラムを短く分かり易くしたいと言うことなら
内部のIF文を次のように先に処理するだけでも短くなりますよ。

If InStr(1, b, "-") Then
        a = ""
Else
        a = " "
End If

If     InStr(1, Replace(b, "-", ""), ".") = 4 Then
        a = a & b
ElseIf InStr(1, Replace(b, "-", ""), ".") = 3 Then
        a = a & " " & b
ElseIf InStr(1, Replace(b, "-", ""), ".") = 2 Then
        a = a & "  " & b
End if

Visual Basic 中学校さんでも書き込んでるみたいですが、
http://www2.moug.net/bbs/program/20061206000002.htm
が一番詳しいですかね。