Нет способа указать пустой словарь в качестве значения по умолчанию для параметра в VB.Net. VB.Net поддерживает только те значения, которые могут быть закодированы в MetaData, и создание нового экземпляра словаря не является одним из них.
Один из вариантов, который у вас есть, - это необязательное значение по умолчанию Nothing. В случае Nothing создайте пустой словарь. Например.
Public Sub SomeMethod(Optional ByVal map as Dictionary(Of Key,Value) = Nothing)
if map Is Nothing Then
map = new Dictionary(Of Key,Value)
ENd If
...
End Sub