How do I get rid of the space?

[blueangel76]

Ok, here is the code I have:

intNextWMWk = WMWeek.Value + 1

If WMWeek.Value < 10 Then
strWMWeek = Str(Year(Date)) & Left("0" & WMWeek.Value, 2)
strNextWMWk = Str(Year(Date)) & Left("0" & intNextWMWk, 2)
Else
strWMWeek = Str(Year(Date)) & WMWeek.Value
strNextWMWk = Str(Year(Date)) & Str(intNextWMWk)
End If

strNextWMWk comes out with a space like this: "2007 12"

Why and what can I do about it to get rid of it? I need it to be "200712"

TIA,
Angie

 

[SkipVought]

Hi,

   strWMWeek = Str(Year(Date)) & Format(WMWeek.Value, "00")
   strNextWMWk = Str(Year(Date)) & Format(intNextWMWk, "00")

Skip,

_[red][/red]

 

[blueangel76]

Than you! That worked!

Angie